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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 



Program No. Date_ 

Program Name: 



1. Does the abstract adequately describe what the program is and 

what it does? Yes No_ 

Comment 

2. Does the program, do what the abstract says ? Yes No_ 

Comment 

3. Is the Description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient 

detail? Yes No_ 

Cornra ent 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently 

understandable? Yes No 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

C o m m ent _____ 

6. Does the object program run satisfactorily? Yes No_ 

C o m rn ent 

7. Number of test cases run 



Mr. Robert J. Robinson (PREP) Company 
Marquette University 

Computing Center Address 
1515 W. Wisconsin Avenue 

Milwaukee 3, Wisconsin User Group 

Code 



Are any restrictions as to data, size, range, etc. covered 

adequately in description? Yes No_ 

Comment ________.„„ ___, 

8. Does the Program meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comm ent ________ . 

9. Please list any suggestions to improve the usefulness of the 
program. These will be passed on to the author for his consideration. 
Comment _ „____, „_ 

Please return to: Your Name 



TRIE PEVTEW FORM IS PART OF THE 10RO USER GROUP ORGANIZATION'S PROGRAM 
RE VIEW AND TWA I .NATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN TRIE EVALUATION. ♦ 



BASEBALL GAME PROGRAM FOR IBM 1620 COMPUTER 
Dennis R. Iverson 



January 21, 1964 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for the IBM Data Processing Systems. If such announce- 
ment indicates a change to the program decks or tapes, a 
complete new program, if needed, should be requested 
from the Program Distribution Center. 



Direct Inquiries to: 

Dennis R. Iverson 
903 Linley Street 
Torrance, California 



DECK KEY 



BASIC: 



1. SPS Object Deck -This deck uses the format of the standard 
SPS object deck (Reference 1). The last card is number 
00180.. oOJO! 

2. Data Cards for Baseball Game Program 

5000-digit table (63 cards) 

3. Data cards for Baseball Game Program 

2000-digit random-number table (50 cards) 

4. Data Cards for Baseball Game Program 

Sample player data cards for 1963 edition of 
Yankee and Dodgers 

5. Fortran Source Program to Compute Batting Input 
Data (36 cards) 

6. Object Program to Compute Batting Input Data-This deck 
uses the format of the standard Fortran object deck. (Re- 
ference 2). The last card is number 0138. 

7. Sample Data Cards for Program to Compute Batting Data 

8. Sample Batting Data cards for SPS Baseball Game Program- 
Input for Decks 1 and Output from Deck 7. 

9. Fortran Source Program to Compute Pitching Input Data 
(60 cards) 

10. Object Program to Compute Pitching Input Data-The last 
card is number 0208. 

11. Sample Data Cards for Program to Compute Pitching Data 

12. Sample Pitching Data cards fo. SPS Baseball Game Program - 
Input for Deck 1 and Output from Deck 11. 



BASIC: 

13. Second set of Random Number Table Cards. 



OPTIONAL: 



1. SPS Source Deck (sequenced In columns one through five) 
Card Numbers 



01001 
02001 
03001 
04001 
0S001 
06001 
07C01 
08001 
09001 
10001 
11001 
12001 
13001 
14001 
15001 
16001 
17001 
18000 



through 
through 
through 
through 
through 
through 
through 
through 
through 
through 
through 
through 
through 
through 
through 
through 
t hrough 



01031 
0202e 
03046 
04007 
05091 
06050 
07102 
08029 
09026 
10005 
11005 
12006 
13009 
14008 
15042 
16128 
17080 



Data storage 
Storage of messages 
Data Input 

Switch setting interrogation 

Steal subroutine 

Switch setting interrogation 

Sacrafice subroutine 

SPIN subroutine 

OUT subroutine 

COMB subroutine 

PITCH subroutine 

START subroutine 

NAME subroutine 

STEAL subroutine 

Check for walk 

Check for hit 

Determine out 

DBND card 



The optional material will be forwarded only when specifically requested. 
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GLOSSARY 



branch : An instruction which causes the computer to go to 
a specified address in core for its next instruction instead 
of executing the next sequential instruction. 

card reader : The auxiliary 1622 unit to the 1620 computer 
which Mas the function of reading cards. 

console : The main unit of the 1620 computer, in which is 
included the memory unit, typewriter, panel indicators, 
and control switches. 

core : The internal memory unit of the computer. 

execute ; To execute a program is to load it into the com- 
puter for performance by the computer. 

fisg : A symbol in core which defines the length of a number 
and determines the parity of a given number in core. 

Fortran : A method of programming which uses symbols and 
words to produce Instructions instead of the coded numeric 
machine language instructions. 

high order : (adj.) A term which designates the leftmost 
position of a number in core. 

input : Data which is transferred into the memory unit of 
the computer; the means of transfer may be cards, typewriter, 
magnetic tape, etc. 

load : A program is loaded by reading it into the computer. 

ob.lect deck : The complete set of cards which are read into 
the computer when a program is loaded; it may include such 
things as the object program, data cards, subroutines, etc. 

ob.lect program : The translation of an SPS or Fortran program 
into a coded machine language program. 
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output : Internal data xvhlch is transferred to a tangible 
form such as punched cards, typed data, etc. 



program : A sequence of instructions to the computer which 
combine to perform a given task when executed by the computer. 

^fcfleld: One of the operands of a 1620 computer instruction 
which gives the address of the argument, or in some cases, 
the argument Itself. 

read : The computer reads input data by transferring it to 
its memory unit. 

record mark: A symbol in core which causes the termination 
of the execution of an instruction to type data. 

SP3 ( Symbolic Programming System ) : A method of programming 
the 1620 computer which uses symbols and words to produce 
instructions instead of the coded numeric machine language 
instructions. 

subroutine ( subprogram ) : A program which is incorporated into 
a larger program. 
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ABSTRACT 

This SPS program is designed to play baseball on the 
IBM 1620 computer. The program uses random numbers to 
generate different games and is based on major league sta- 
tistics. The operator calls tae strategy he desires by 
throwing console switches. The 1622 card reader and 1620 
computer with no extra features and minimum storage are 
required for the program. 

PROGRAM BRIEF 

This SPS program permits the operator to play major 
league baseball on the IBM 1620 computer. It ie primarily 
intended to be executed by two persons, since the operator 
calls the strategy he desires and a manager is needed for 
each team (conceivably, though, one person could manage 
both teams). The operator informs the computer of his 
desired strategy by throwing one or a combination of the 
four console switches. 

The program is based on actual major league statistics, 
and the operator has the option of what teams he wants to 
play cased on a specified year's performance. This char- 
acteristic is accomplished by reading in data cards for 
trie desired players when the urogram is loaded into the 
computer. The operator must, therefore, prepare data cards 
for the players he wsnts to use. As an aid in the prepara- 
tion of tnese data cards, two Fortran programs have also 
been written in conjunction wit. a the main baseball program. 
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Instructions for using these programs are contained in 
the section on input/output specifications. 

Random numbers are used to generate different games. 
Data for the players determine the probability of success, 
and a random number is then used to determine the outcome 
of a specific action. They are obtained from a table of 
random numbers which is read into the computer when the 
program is loaded. No attempt will be made to explain how 
to produce these random-number cards, but many random-digit 
generator programs are available through IBM. 

The average time for a game has been about twenty 
minutes, and thirty successful games have been played as 
a checkout procedure. 

PROGRAM DESCRIPTION 
The program begins by reading in the the 5000-dlgit 
matrix table, the random-number table, and data for the 
players. It is then ready to accept the batting orders 
(see Operating Procedure for method of typing line-up). 

Input Batting Data 

Batting data is read in for every player. The follow- 
ing is a list of the batting statistics to be read in for 
each player, with an explanation of the significance of 
each symbol : 
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XF: 


Frequency of 


errors per hundred chances 


BB: 


Frequency of 


walks per hundred appearances 


BA: 


Frequency of 


hits per hundred at bats 


K2B: 


Frequency of 


doubles per hundred hits 


K3B: 


Frequency of 


doubles end triples per hundred hit 6 


HR: 


Frequency of 


extra-base hits per hundred hits 


XK: 


Frequency of 


strikeouts per hundred outs 


SBA: 


Scaled number, which rates player's speed 



Input Pitching Data 

in addition, pitching data is read in for each of the 
pitchers. The following is a list of the pitching numbers 
and their significance: 

XW: Compensating walk number, whicn is added to the bat- 
ter's BE number to determine the probability of a walk 

PC: Compensating nit number, which is added to the batter's 
BA number with the bases empty 

MOB: Compensating hit number, which Is added to the batter's 
BA number with men on base 

KC: Compensating strikeout number which is added to the 
batter's XK number 

*vF: Scaled number v.-hieh rates the pitcher'6 control and 
probability of committing a wild ^itch 

FHR: Compensating home- run number which le added to the 
batter's HR number 

SFC: Scaled number which rate? the pitcher's ability to 
pitch effectively for an extended length of time; 
each walk snd hit reduce this number, and when It 
becomes negative, its absolute value Is added to the 
batter's BA number in deterging the batter's pro- 
bability cf obtaining a base hit 



e 



-4- 

Functlon of 100 x 50. Matrix TABLE 

A 100 x 50 matrix is stored in the 5000-digit TABLE 
in core. This matrix works in conjunction with 2000-digit 
RANDOM table to generate the results of every action that 
takes place in the game. Column one of the matrix contains 
one zero, column two has two zeroes, and in general, column 
n has n zeroes. If an action has probability of succesB 
p/100 (pS50; p an integer), as determined by the input 
data for the players, the results of a specific performance 
may be obtained by noting the number in column p and row n 
(where n is the next random number from zero to ninety-nine 
taken from the RANDOM table). If that number is a zero, a 
success is noted, and otherwise a failure. Observe that 
the probability of there being a zero in that position is 
p/100. If p>50, the probability of failure is used instead 
to determine the results; i.e. q-100 - p, and the necessary 
interpretation of the results is made. 

Accession of Matrix TABLE by SPIN Subroutine 

For each action, the probability of success is computed 
as a function of the appropriate input data of the player 
involved and the action to be taken, and placed in ARG-. The 
program then branches to the SPIN subroutine which uses the 
number in ARG and the next random number as the column and 
row, respectively, and places the number corresponding to 
this position in the matrix in ANS. A branch back to the 
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mainllne program is then made, and the results of the action 
being undertaken are computed as a function of the number 
existing in ANS at this point. The number in ANS, however, 
is a. two-digit number, the first of which is tne number 
from the matrix. The second digit put in ANS is the first 
digit of the next random number to be taken from the RANDOM 
table. The first digit determines the results of a specific 
action, and the second modifies the results in various ways 
throughout the program. 

Accession of Player Data by COMB 8nd PITCH Subroutines 

The question of how the probabilities are determined 
now arises. A generalized description of the programming 
methods involved will be presented here. The COME and PITCH 
subroutines are used for this purpose. These two subroutines 
function to access the batting and Pitching numbers of the 
players respectively, and place these numbers in ARG for 
the SPIN subroutine to use as an argument. The data for 
the players is stored in core in a contlnous array; i.e. 
the data for player two immediately follows player one, 
etc. There are el^ht two-digit batting numbers for each 
player, so that corresponding data for consecutive players 
are sixteen digits apart. The same situation exists for 
pitching data, except that there are only seven two-digit 
pitching numbers for each pitcher. 
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Observe in the program listing that the data for only 
player number one may be referenced directly. The corre- 
sponding data for other players may be referenced by the 
corresponding data address for player one and adding an 
Integral multiple of sixteen for batting data and fourteen 
for pitching data. If n is the player number, X the symbol 
representing one of the batting data, and Y the symbol re- 
presenting one of the pitching data, then the address of 
the batting data X for player n and the address of the 
pitching data for player n are given by the formulae: 

B(n,X) - X + 16(n - 1) 

P(n,Y) = Y + 14(n - 1), 
where B(n, X) and P(n,Y) designate the respective desired 
addresses. 

The general procedure in the program then Is to branch 
and transmit immediate to the COMB and PITCH subroutines, 
using the address of the data for the first player (i.e. 
X or Y in the above formulae) as the argument in the Q-fleld 
of the BTM Instruction. These subroutines then extract 
the desired number from the stored data for the player by 
using the method explained above and add it to the contents 
of ARG. Note that a number may be modified for a specific 
action by placing a correction factor in ARG before branch- 
ing to the subroutine. This is necessary, for instance, 
in checking for a hit. With the infield playing half-way 
the batter's chances of getting a hit are three plus his 
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BA number plus the pitcher's PC (or MOB) number. If the 
infield is normal, the three is not added to the sum of 
the BA and FC. So, if the Infield is half-way, the three 
must be put in ARG before branching to the COMB subroutine 
to add the batter '6 BA number. With this sum in ARG, a 
branch is made to the PITCH subroutine to add the pitcher's 
PC number. If the infield were playing normal, ARG would 
have had to have been cleared to zero before branching to 
COMB. After adding the desired number to ARG these sub- 
routines branch back to the mainline program, which, in 
most cases, branches to the SPIN subroutine with the proper 
number in ARG. 

OUT Subroutine 

After each out is made, the program increases the num- 
ber of outs by one, and branches to tne OUT subroutine. 
This subroutine determines whether or not there are three 
outs. If not, it branches immediately back to the mainline 
nrogram. If there are three outs, it interchanges the 
defensive and betting line-ups, resets OUTS to zero, and 
branches to the next batter. 

Decreasing 3f f ectlvenesg of Pitcher 

The program has been written so that s pitcher's 
efficiency decreases after s certain point. Sach pitcher 
is assigned an SPC number as part of his pitching data. 
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E8ch walk reduces this number by one, each single by two, 
each double by three, each triple by four, and each home 
run by five. After his SFC is decreased below zero, its 
absolute value is added to the BA of every batter that he 
faces, and it continues to be decreased by each walk and 
hit. The START subroutine has been written to perform this 
task. Each time that one of the above actions occur (I.e. 
a walk, single, double, triple, or home run), the program 
has a branch and transmit immediate to the START subroutine, 
with the corresponding reduction factor as the argument in 
the Q-field of the BTM instruction. The START subroutine 
then accesses the SPC number of the pitcher in the' same 
manner as the PITCH subroutine and subtracts the argument 
placed before it by the BTM instruction from this SPC NUMBER. 
The program then branches back for continuation. The SPC 
number of the pitcher is then checked each time a batter 
comes to bat, and the proper correction is made in the BA 
if the SPC number is negative. 



© 



o 



-9- 

INPUT/OUTPUT SPECIFICATIONS 
In order for the user to be able to keep the program 
current, two Fortrsn programs have been written, which 
compute the required data for whatever teams he wants to 
put on the computer. 

Program for Batting Data 

The following batting statistics are required for the 

players to be used: at bats, hits, doubles, triples, home 

runs, stolen bases, times caught stealing, batting average, 

walks, strikeouts, snd fielding percentage. The input data 

should be punched on cards according to the specifications 

of the statements: 

BEAD 1,AB,HIT3,DBLE,TRPL,HR,SB,CS,AVE,BB,S0,FCT 

1 FORMAT (9X,F3.0,F3.0,F2.0,F2.0,F2.0,F3.0,F2.0,F3.3,F3.0, 
F3.0,F3.3) 

The following steps are necessary for execution of the 
program to compute batting data: (a) punch Input data cards 
(b) clear core to zeroes; (c) losd object program; (d) load 
subroutines; and (6) load data. 
Punch Input data cards 

The input data cards are punched according to the spe- 
cifications mentioned above. Each card contains the sta- 
tistics for one player and tv/enty-f lve cards are necessary 
for each execution of the program. Table 1 gives a listing 
of sacple date cards for this program. 
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b. Clear core to zeroes 

The computer may be cleared by carrying out the fol- 
lowing steps: 

1. Press INSERT key on console. 

2. Type "160001000000" on the console typewriter. 

3. Press RELEASE key on console. 

4. Press START key on console. 

5. Press INSTANT STOP key on console. 

6. Press RESET key on console. 

c. Load ob.1 ect program 

Place the object program in the hopper of the card 
reader and press LOAD on the card reader. 

d. Load subroutines 

After the object program has been read In, the message 
"LOAD SUBROUTINES" will be typed on the console typewriter. 
Place the 1620 Fortran/with format subroutine deck in the 
card hopper, press START on the console, and press READER 
START on the card reader. 

e. Load data 

After the subroutines have been read in, the typewriter 
will print the message "LOAD DATA." Place the data prepared 
In part (a) in the card hopper, r>ress START on the console, 
and press READS R START on the card reader. 

The results are then typed out at the typewriter. The 
output for the sample data in Table 1 appears in Table 2. 
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SAMPLE DATA FOR FORTRAN PROGRAM TO COMPUTE BATTING DATA 



478 1 29 1 606230000 1 27003709999 1 
6652302709270 1 80634602906596 1 
493 1 4625063 1 00 1 00296033 1 08972 
244059090 1 0400502242028033980 
1 09029050000004002660 1002 1 980 

8802505000400000284010015980 
389097 1 607070 1 203250046060985 
5881592401 0401707270093035941 
2400591 001 0200202246020030977 
2320520800 1 00000 1 2240220 1 8990 
460 12815071 400 1 1 278069059989 
2460570700 1 300000232029032985 
494 1 3823052 100101 27903 1 076995 
566 1 54240 1 1 800302272046 1 06964 
1290370800010060H28701 1016960 
1 6905 3040004004003140 12018970 
285074 1 200080060 126003703 1 995 
6922093805080 1 1 09302037024982 
335092 1 90 1 060000 1 27503 1 053984 
377121 15013000900321 1 14078978 
590 1 5 1 340 1 3300 1 00256082078991 

430 1 3020 1 1 0020 1 30200501 0975 
622 1 7826052000408286072074970 
695208 1 3 1 0061 04 1 3299052057956 
600171 18102103207285038072963 



Table 1. Sample Input Data for Program to Compute Batting 
Data. The first nine columns are blank and the 
numbers begin in column ten. 
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p 




BB 


7 


BA 


27 


2B 


1 2 


3B 


16 


HR 


33 


K 


28 


SBA 


30 


p 


4 


BB 


4 


BA 


34 


2B 


1 1 


3B 


14 


HR 


25 


K 


14 


SBA 


66 


p 


3 


BB 


6 


BA 


29 


2B 


1 7 


3R 


21 


HR 


42 


K 


31 


SBA 


32 


p 


2 


BB 


10 


BA 


24 


2B 


1 5 


3B 


16 


HR 


22 


K 


17 


SBA 


40 


p 


2 


BB 


8 


BA 


26 


2B 


1 7 


3B 


17 


HR 


17 


K 


26 


SBA 


38 


p 


? 


BB 


1 


BA 


28 


2B 


20 


3B 


20 


HR 


36 


K 


23 


SBA 


30 


p 


2 


BB 


1 


BA 




2B 


16 


3B 


23 


HR 


30 


K 


20 


SBA 


63 


p 




BB 


1 3 


BA 


27 


2B 


] 5 


3B 


15 


HR 


17 


K 


8 


SBA 


64 


p 


3 


BB 


7 


BA 


24 


2B 


16 


3B 


17 


HR 


20 


K 


16 


SBA 


34 


p 




BB 


8 


BA 


22 


2B 


1 5 


3B 


15 


HR 


34 


K 


10 


SBA 


30 


p 


2 


BB 


13 


BA 


27 


2B 


1 1 


3B 


16 


HR 


26 


K 


17 


SBA 


32 


p 


2 


BB 


1 


BA 


23 


2B 


1 2 


3B 


12 


HR 


34 


K 


16 


SBA 


30 


p 


] 


BB 


5 


BA 


27 


2B 


16 


3B 


19 


HR 


34 


K 


21 


SBA 


32 


p 


4 


BB 


7 


BA 


27 


2B 


] 5 


3B 


15 


HR 


26 


K 


25 


SBA 


36 


p 


4 


BB 


7 


BA 


28 


2B 


21 


3B 


21 


HR 


23 


K 


17 


SBA 


42 


P 


2 
J 


BB 




BA 


3 1 


2B 


7 


3B 


7 


HR 


14 


K 


1 5 


SBA 


38 


F 


1 


BB 


1 1 


BA 


26 


2B 


16 


3B 


16 


HR 


26 


K 


14 


SBA 


42 


F 


2 


BB 


5 


BA 


30 


2B 


18 


3B 


20 


HR 


23 


K 


4 


SBA 


51 


F 




BB 


8 


BA 


27 


2B 


20 


3B 


21 


HR 


27 


K 


21 


SBA 


30 


F 


3 


BB 


23 


BA 


32 


2B 


12 


3B 


1 2 


HR 


36 


K 


30 


SBA 


72 



(cont . ) 




F 


1 


BB 


1 2 


3B 


22 


HR 


<+3 


F 


3 


BB 


10 


3B 


22 


HR 


29 


F 


3 


BB 


10 


3B 


16 


HR 


27 


F 




EB 


6 


3E 


W 


HR 


1 2 


F 


k 


BB 


5 


3B 


15 


HR 


27 


STOP 
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BA 


25 


2B 


22 


K 


17 


SBA 


32 


BA 


30 


2B 


15 


K 


33 


SBA 


3k 


BA 


28 


2B 


1i+ 


K 


18 


SBA 


38 


BA 


29 


2B 


6 


K 


1 1 


SBA 


79 


BA 


28 


2B 


10 


K 


16 


SBA 


76 



Table 2. Sample Output of Fortran Program to Compute 
Batting Data 
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The output data of this program when punched on cards 
according to proper specifications will then form the bat- 
tine input data for the baseball program. 

You will observe from the sample above that the input 
batting data will consist of eight two-digit numbers for 
each player entered. These are punched consecutively in 
the same order on a card with a flag in the high order 
position of each number. So the batting data for each of 
the fifty players will use sixteen card columns. The bat- 
tine data for the different players should be placed in 
Juxtaposition on the card; i.e. batting data for five 
players is punched on each card of eighty columns. Bat- 
ting data for the players one to five should be punched on 
the first data card; for players six to ten, on the second 
data card; etc. Data for fifty players should be entered. 
Each player is then assigned a player number which corresponds 
to the position of the set of batting data for him in the 
set of batting data cards. Since the player for a pitcher 
le the same for both batting and pitching data, it is nec- 
cessary that all the pitchers for both teams be assigned the 
lowest numbers. 

Program for Pit chlng Data 

The procedure for executing this program is the same 
as the last except that different specifications are re- 
quired for the pitching data and additional data cards are 
necessary. Eight prepared data cards which are provided 
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should be placed In front of the pitching data cards. 

The following information is necessary for the 
pitching data cards: base on balls allowed, at bats against 
pitcher, earned run average, hits off pitcher, strikeouts, 
games started, complete games, home runs allowed, and Innings 
pitched. The information should be punched according to 
the following input specification statements: 

READ 2,BB,AB,ERA,HITS,SO,GS,CG,HR,IP 
2 FORMAT (F3.0,F4.0,F4.2,F3.0,F3.0,F?,.0,F2.0,F2.0,I3) 

Table 3 is a sample input for this program, and Table 
4 ie the output for this set of data. 

In the same manner, the output of this program will 
form the input data for the baseball program. The same 
format is used for punching the pitching data cards as was 
used to punch the batting input data of the baseball program. 
There ere only seven pitching numbers for each pitcher, so 
that the eignty-column card, will carry the data for over 
five players. The cards will be read in as a continous 
array, however, so the second pitching data card will begin 
where the first left off. Because a pitcher is referenced 
by the same player number for both batting and pitching, 
as mentioned before, it is necessary that the pitchers be 
assigned the lowest numbers (cf. sample roster sheet in 
Table %) . Therefore, if numbers one through twenty are 
assigned to the pitchers, 200 card columns will be used 
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SAMPlE DATA FOR FORTRAN PROGRAM TO COMPUTE PITCH INS OAT A 

O 00056090000 1 493000055600000 1 AS 1 000055S70000 1479000099S90000 1461 
348 1 OOOO 1 393OOOOSS0700OO 1401 0000S423 0000 1 331 0O003429OOQO 1 342 
536SO0O0 1 309000053 1 1 OOOO 1 483000033070000 1 4360000S2420OO0 1414 
52330000 1 37900008 1 690OO0 1 337000082900000 1 366600083420000 1 3*3 
521 3 OOOO 1 263000052S80000 1 488OO00S3 1 7 OOOO 1432OO0093M0OOO 142* 
53690000 1 4 1 4OOO0S28200O0 1 3T70000S204 OOOO 1 3600000029*0000 1321 
5 1 090000 1 23700O0S28700O0 1 360000O826500O0 1 4 1 3000093790000 1 397 
000 s2 1 20000 1 346000052980000 1 326000082070000 1 240O000S09 1 OOOO 1209 

2804709 • 49 1 360S4 1 602 1 2 1 1 6 

21 04073 .60 1 050550606061 OS 

5904893*99124071160309133 

4403993. 2008 1 044000008090 

7110833. 812701 78400820285 

3604 502 • 86 1 0306800000 1107 

6206464.86146091210120144 

5707442. 54 1342 J 6261 113164 

7012892.04272232411921314 

4802523. 13049066000004072 

1 70 1 264 • 7603302 1 000005034 

9008384.49164108280416186 

3711 1 43.192371 7639 J 440299 

7708063.68 1 88 1 093707232 1 3 

6909882 .90243 1 60370722258 
02306 1 1 4 • 88 1 72089 1 90626 144 



Table 3. Listing of Sanple Input for Program to Goaputa 
Pitching Data. 
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w 

WP 


— ■> 

5 


PC 

PHR 


-7 

-1 


MOB 
SPC 


13 

5 


SO 


-3 


w 

WP 


-6 

k 


PC 
PHR 




-3 


MOB 
SPC 


-0 

hi 


SO 


1 


w 

WP 


5 

15 


PC 
PHR 


— '_-> 

-3 


MOB 
SPC 


3 

8 


SO 


2 


w 

WP 


L 

]h 


PC 
PHR 


-7 

_2 


MOB 
SPC 


-3 




SO 


-3 


w 

WP 


-k r 


PC 
PHR 


-it 

_2 


MOB 
SPC 


2 

1 1 


SO 


6 


w 

WP 


-1 

9 


PC 
PHR 


-1 

-7 


MOB 
SPC 


-5 




so 


3 


w 

WP 


1 

1 1 


PC 
PHR 


-1 5 

3 


MOB 
SPC 


9 

10 


SO 




w 

WP 


_9 

"8 


PC 
PHR 


-9 

-3 


MOB 
SPC 


-7 

lit 


SO 


27 


w 

WP 


-5 

5 


PC 
PHR 


-5 

-3 


MOB 
SPC 


-5 

lit 


SO 


8 


w 

WP 


16 
26 


PC 
PHR 


-1 1 

-4 


MOB 
SPC 


-3 




SO 


22 


w 

WP 


7 

17 


PC 
PHR 


-8 

3 


MOB 
SPC 


8 




SO 


6 


w 

WP 


5 

15 


PC 
PHR 




MOB 
SPC 


6 

1 1 


so 


-0 


W 
WP 


-6 

b, 


PC 
PHR 


-3 

2 


M03 
SPC 


-3 

13 


SO 


it 


w 

WP 


1 

1 1 


PC 
PHR 


-7 

-0 


MOB 
SPC 


1 

1 1 


so 


1 


W 
WP 


-3 

7 


PC 
PHR 


3 

..? 


MOB 
SPC 


-5 

1 1 


so 


5 


STOP 
















Table 4. 


Sample 


Output 


for Fortran Program 


to 



Pitching Data. 
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for pitching data cards. Three and a half 80-column cards 
will then be necessary. The last forty columns of the last 
card would be left blank. 

Preparation of Name Data Cards 

Name data cards must also be prepared. These make It 
possible for the computer to type the names of the players 
you desire to play. A maximum of ten characters are allowed 
for each name. The tenth character must always be s record 
mark. The same card format is used to punch the name data 
cards. Eight ten-character names should be punched on each 
eighty-column card and the names and cards are put in the 
order corresponding to player numbers as before. 

Order of Data Cards 

After compiling all the data cards for the baseball 
program, they should be put in the following order and 
placed In the appropriate part of the object deck (see 
operating Instructions): 

1. Batting data cards 

2. pitching data cards 

3. name data cards 

PLOW CHARTS 

The following pages contain flow charts for the base- 
ball game program and its subroutines. The Sacrafice and 
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Steal subroutines are open subroutines, and all the rest 
are closed. The following is a legend for the flow charts. 



LEGEND 




Input/Output 



Choice Box — Conditional Branch 



Subroutine 



Flow Chart Continues at 
Place designated by X 



Function Box 



Figure 1. Legend for Flow Charts 
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MAIN PROGRAM 




Figure 2. Flow-Chart of Main Program 




<0 



ARG + (99) 
- (99) 





r 


TABLE 


- 1 


+(99)- 


(99) 



The digit whose ad- 
dress is in 99 is 
transferred to 
ANS - 1 
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SPIN SUBROUTINE 



Let N. be the ith random number in the 
1 random number table; the address 
of N. is stored in H+30. 



(99) - ARG 
- (99) 



The first digit 
of N i+1 is put 
in ANS 



(99) 


- 100 


=0 


- (99) 


-< < 


■ 




AEG + 


(99) 

[99) 
i *■ 




-» 





"TO" 



-*1 i + 1 - i 



TABLE+(99) 

+C99M99) 




- (ANS-1) 



Branch 




Back 


< — : 



i = 1 



>0 



i - 200C 



Figure % Flow-Chart of SPIN Subroutine 



OUTS-3 



Type 
New Line-up 



Interchange 

Batt ing 
Orders 
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OUT SUBROUTINE 




<0 





>0 




r 


OUTS 


= 






Clear 


Bases 




■ 



Branch 
Back 



^ NAME ^ 



Halt 



Next 
Batter 



Interchange 
Pitchers 



Figure 6. ELow-Chart of OUT Subroutine 
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COMB SUBROUTINE 



16n - (99) 



(99) - 16 
- (99) 



(99) + x 
- (99) 



Branch 
Back 



No. with 
address in 
99 trans- 
ferred to 

ARG 



Let n represent the player number of the current 
batter 

Let X represent the symbol of the data to be 
obtained, which was put in the Q-field 
of the BTM instruction 



Figure 7. Flow-Chart of COMB Subroutine 
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PITCH SUBROUTINE 



lAn - (99) 



JL 



(99) - 14 
- (99) 



Branch 
Back 



± 



(99) + Y 
- (99) 




no. with 
address in 
99 added 
to ARG 


— ^_ 



Let n represent the player number of the current 
pitcher 

Let Y represent the symbol of the pitching data to 
be obtained, which was put in the Q-fielfl of 
the BTM instruction 



Figure 8. Flow-Chart of PITCH Subroutine 
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START SUBROUTINE 



I4n - (99) 



(99) - 1* 
- (99) 



SPC + (99) 
- (99) 



Branch 
Back 



Subtract m from 
the number whose 
address is in 99 



Let n represent the player nflmber of the current 
pitcher 

Let m represent the reduction factor in the Q- 
field of the BTM instruction 



Figure 9. Flow-Chart of START Subroutine 



m o 
Qo 



r~ —i 
O m 

-< 
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NAME SUBROUTINE 



20n - (99) 



Branch 
Back 



(99) - 20 
- (99) 



SPEY 



Type name 
whose address 
is in 

(99) + LIST 



Let n represent the player number of the player 
whose name is to be printed; the address 
of n is in NAME - 1 



Figure 10. Flow-Chart of NAME Subroutine 
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STEAL SUBROUTINE 



16n - (99) 



(99) - 16 
- (99) 



Branch 
Back 



SBA + (99) 
- (99) 



The number 
whose address 
is in 99 is 
added to AEG 



Let n represent the number of the player whose 
SBA is desired. The address of n is in 
STEAL - 1 



Figure 11. Flow-Chart of STEAL Subroutine 
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DET AILED CODING INFORMATION 



Important Addressee 

A symbol table may be found in Appendix B and a map 
of storage in Table 5, but the following addresses may be 
of special significance to the operator. 

The 100 x 50 matrix TABLE is stored in locations 00404 
to 05403. The random number table is in locations 05438 
to 07437. 

The number of the current pitcher is in 00403 and 
00408. The batting order is in positions 09682 to 09699. 
The counter for the number of outs is at 09709. The player 
number of the runner on first base may be found in 10422 and 
10423; the runner on second base in 10432 and 10433; and 
the runner on third base in 10470 and 10471. 

Reentry 

Setting switches two and three will start a new game, 
but if for some reason a manual entry into the program is 
desired, either of two certain points would be most likely. 
To enter new line-ups branch to 18172; you may desire to 
transfer zeroes to the outs counter and/or the addresses 
mentioned above for the first-, second-, and third-base run- 
ners before branching. To bring up the next batter, branch 
to 10964. 
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Number of Pitcher 


UU4Ue— UUH-Up 






00404-05405 




Matrix Tabie 






Tempprary Storage, Work Area 


05404-05437 






05438-07437 




Random-number Table 








07458-10411 




Data Storage 






Main program 


10412-1104? 




Steal Subroutine 


11048-12139 





Main Program 


12140-12739 




Sacrafice Subroutine 


12740-15963 




Closed Subroutines 


14064-15095 






15196-18195 




Main Program 






Hot Usea 


18196-19666 




Defensive Line-up Storage 


19667-1968? 


i 


Not used 


19688-19999 



Figure 12. Storage Layout of Baseball Game Program 
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OPERATINa INSTRUCTIONS 
Execution of the object program will consist of the 
following main steps: (1) preparation of the object deck; 
(2) clearing core to zeroes; (3) loading object deck; (4) 
typing in line-ups; and (5) controlling console switches 
for the desired strategy. Each of these steps will be 
explained separately. 

preparation of Object Deck 

The object deck should consist of the following in 
the designated order: 

1. SPS object program 

2. 5000-digit table 

3. Random number table 

4. Player data cards. 

The object program and the 5000-digit table are part 
of the standard package for the program (see the Program 
Description for an explanation of the significance of this 
5000-digit table). To vary the outcome of the games, a 
new set of random numbers should be used for each game 
(shuffling the deck may also serve adequately). There 
should be twenty-five cards of random numberw with eighty 
numbers per card and a flag at every odd card position (two 
sets of random-number cards are provided as part of the 
standard package for the program). Preparation of data 
cards is explained in the section on Input/Output Specifi- 
cations (data cards for the 1963 edition of the Dodgers 
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and Yankees are provided — these were used to test the 
original program and the sample game which will follow 
is based on these data cards). 

Clear Core to Zeroes 

1. Press INSERT key on console. 

2. Type "160001000000 " on the console typewriter. 

3. Press RELEASE key on console. 

4. Press START key on console. 

5. Press INSTANT STOP key on console. 

6. Press RESET key on console. 

Load Ob.lect Program 

This task is performed by placing the object deck in 
the card hopper of the card reader and pressing the LOAD 
key on the card reader. After a portion of the object 
deck has been read into the computer, the READER NO PEED 
light will go off on the console. At this point, press 
the START key on tne console. The remainder of the dedk 
will then be read into core. 

Type in Line-ups 

After the object deck has been loaded, the console 
typewriter will the message "ENTER DSF LINEUP." The con- 
sole typewriter will then be released, and will be ready 
to accept the home team line-up. When the data cards are 
prepared, each player is assigned a number. Type the 
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line-up as a sequence of two-digit numbers corresponding 
to the appropriate players in the order in which they are 
to bat. 

Example: Line-up sheets for the 1963 Dodger and Yankee 
teams are in Table 7. Typing in the following would give 
the line-up listed below: 
272429282330252202 . 



1. Maury Wills, ss (27) 

2. Jim Gilliam, 2b (24) 

3. Willie Davis, cf (29) 

4. Tom Davis, If (28) 

5. Ron Fairly, lb (23) 

6. Frank Howard, rf (30) 

7. Ken McMullen, 3b (25) 

8. John Roseboro, c (22) 

9. Sandy Koufax, p (02) 



After typing in the defensive line-up hit the R-S 
(RELEASE AND START) key on the console typewriter. The type- 
writer will then type the message "ENTER BAT ORDER. " Type 
in the visiting team's line-up in the same manner as ex- 
plained above. 

Controlling Console Switches for Strategy 

Table 6 gives a listing of switch settings for the 

program. Only the indicated switches for each setting 

should be on — all others must be off. 

The general sequence of events in the playing of the 

game can be illustrated by the following diagram: 



o 
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Operator sets 
switches for 
desired strategy 



Computer 
Halts 



Press 



START 



Computer 
determines 
results 



Results are 
typed out 



igure 



13. General Sequence of Events in Execution of Program 
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Switch 
Setting 



Function 



Steal. Calls for attempted steal. 



Pinch-Hitter. Computer will type message to enter 
ph. Type the two-digit player number of the desxred 
i-.t-.ov and hit R-S. 



p ia c h - h il 



2,4 



1,2 



New Pitcher. Computer will type message to enter 
pitcher. Type the two-digit player number of the 
pitcher and hit R-S. 



Sets infield half-way. Increases batter's chances 
of a hit and decreases chances of a successful 
bunt. 



1,3 



Sets infield in. Has same effect as above, but 
in greater magnitude. 



1.* 



The batter is intentionally walked. 



Sacrafice. Batter attempts a bunt. His chances 
are dependent upon his speed and the depth of the 



inf i<!ld. 



2,3 



New Game. Computer asks for new line-ups. 



Runner takes two bases on a single and three bases 
on a double at risk of being thrown out; pick-off 
attempt by pitcher is iniated; runner on third will 
attempt to score on any fly ball — otherwise he 
would only try to score on a deep fly. 



3,4 



At the end of each inning, the batting order of 
the new team is typed out by the console type- 
writer. If this line-up is incorrect or 
unsatisfactory for any reason, switches 3 and 
4 may be put on to enter. the correct line-up. 



Table 5. Switch Settings for Strategy 
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S AMPLE GAME 

The following pages show sample input and output for 
the program. Table 6 is the sample roster used for the 
game, and Tables 8 through 11 are listings of the decks 
used for input. 

The sample game which follows was double-spaced so 
that helpful comments could be inserted. 
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SAMPLE HOSTER 
New York Los Angeles 



10 


Bout on 


01 


Drysdale 


11 


Daley 


02 


Kouf ax 


12 


Ford 


03 


Miller 


13 


Sheldon 


04 


Perranoski 


14 


Stafford 


05 


Podres 


15 


Terry 


06 


Sherry 


16 


Williams 


07 


Calmus 


17 


Arroyo 


08 


Rowe 


18 


Bridges 


09 


Richert 


19 


Downing 


21 


Camilli 


20 


Reniff 


22 


Roseboro 


37 


Berra 


23 


Fairly 


38 


Blanchard 


24 


Gilliam 


39 


E. Howard 


25 


McMullen 


40 


Boyer 


26 


Skowron 


41 


Linz 


27 


Wills 


42 


Kubek 


28 


T. Davis 


43 


Long 


29 


W. Davis 


44 


Pepitone 


30 


F. Howard 


45 


Richardson 


31 


Moon 


46 


Lopez 


32 


Walls 


47 


Mantle 


33 


Breeding 


48 


Maris 


34 


Tracewski 


49 


Reed 


35 


Ferrara 


50 


Tresh 


36 


Nen 



Table 6. Sample Roster 
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5000-DIGIT TABLE 

BASEBALL GAME SPS OBJECT PROGRAM 

6568674 7262209663699496 707060545040404960168060006784661304487670804460852760070 
2030708060 708G60505054242596725692608500460916851 10708090919070606004027475859*6 
38084 7688087 1604089070307009201020880800328574051 8763505960640817060400607509602 
0699306008866 586 54714096856064770 768790800 710670709070090070147167185868 575206 75 
4C93C1208588605406070960920700478993 36013384 1C7392024667096095C890 50606 8C6408406 
7705549 1 708626 79 106 3740 54064C6 10 5608040620560540604896 836 2 156 5041 6 750052 34 032 664 
09505 76076CIC9C9C4C7685477776603696391091010880890820460370080970 1004078 13 101871 
19820 7098796C 1564 80 86C7606706 8025C6O6606394729605 9944890682 7038962202 50370470600 
86C7C8008065560369942990638320196999000754098C450706060806C9397698 85609646494076 
609807808 17061C 1505060 70 709050806 7965856 14784408687688609709428085068C3760507090 
461 5456 e82C86750l6930718C8307l0757408706C90806020998887744076 1765809697003407550 
16040404098030 7090027 1596681 725055 768799942099645670409860954C0509087015348897SS 
750788 152698441767420714405869080020660574809545454 1807574046 1907696095095C20504 
77070780606 745740388 17 780960398206450480860 190906060008307098479698816C665945772 
1185C6589C658C98860e043C5C401026645936058919604258206 74970640095604C4C3509C08 506 
57964 L56776C96 1294608874608 3089096C09806900605605049994689498C686660425 720541055 
03606900409080940080911108199456404549184509920540490820690709086097056869957560 
17548785860687 7070 1990 7405208605G6087070862259868404479656547056583C964660820550 
3C608609C7698584242 79833C77460C428806964690641709560546306403 1873098687478345061 
0874089200862030 1034064020306317648749635804987807960946405400680790605905070550 
e276193068441545C67950956068085807660830807050580 4666842771575806424460978034270 
9420703305C40 74070805321661 10369537099406960590736045505440854040406C49599148559 
208 749608 194C590860957028903704053040960588875973492C442830861580740366096066017 
C 76080603626183805 7 8376181077337765404720 740730840560310509075727 125445436068454 
C860375860940 7608 1066084060408503788843086942750158 10940258930620400540514C02017 
96463764874043 3442C0595270960439051026034305C905906980547246882095795404820 10943 
C1809806809C8C608 7068369 166804627951C768884035147066082024504008 10 1806 1953983577 
9842083 18760308057072043004072080207601086 1529865 54508 14108 155C40471 16098068C7C8 
70 10400308487766043 3579470945084602808608 106036066060900106C64046566487310664618 
C030851108607056904060609605097738405983077529084430966C67380840860609C490606060 
44548368606 1898062906660C480902019108301C901080602954744909989606788054540550610 
71930909808010709060786559450657949098980679065064508007406008090909067480645759 
4 159C16908390689C79304206080506040301070453995684 5906189800 180 156210306090940606 
90908090296 19 1252540 196440789026609601201066070404040870605468864644860888 160859 
809 15 1C604550606090509C6C60460364782861854207846069 10767505901296040608080380600 
1658779 169909 18570 199C9510450603402020866048060700968380437 105570627804 528068081 
6608C38504087C60600869278886 I 786C797840 1947 103840 4095 7580760940680809095646 17084 
677910696768095808969 1040094977767000400895676919 3884095687059606541605057069070 
180480608CC693451 702468837064270983 190580990601504904706070777485483491806808578 
086209C97C4809C17015C970607070622488099376186929076 7806055C4C04028048074040 709C2 
9676 1694 306756239066 1 1065670209606606 10 1809090603018454 74 858C477092458602567C994 
105054055607C5C6080664712C64 74984872091624604 1460 10833885050804905704C49698 18068 
2360645197C718C097 70e7C88C8601066060C35082866B188 7807274754082 72 7440457070 7808CC 
1404096401425863704987252544387909860039096702160950587 1408444 1974296 14947019 795 
9C45C080440618057016C60606040056961841890 18665628228807 76550 18604640704050109001 
87270 197147709465903930712 12026042190839C50408C9403178963680256158C4660967009090 
0396701 17C5C3090906C97816C799651 56455056 165098068044040467060600 1 106086649568636 
76180771 1057012024632C45100630601050159675e493025444744069730343037609C7102065C8 
06C1C5400090 184 9576658906706493026986084908909806 108060106C 118827143719065463205 
845040880175C262089060607C9C4C616539315849C693935445808906979705902147C96708010 7 
7947487865835820682508332358072205C99064708060606 0435654449404346926804655759208 
0580860609060503060953950866489513948065697904692 270694050801090503090523 7831665 
624 IC 14800463460804044508509758036060803288146936 64084590136034027630693045C3207 
C 1608080688468 37C 3437 745358044680899C7496C3807608055C5035080598492579C2693801587 
5C4634 3908C990 7 30 5C63C8C6501064 709683477752068376015C880231084C14030430890504C60 
82565679056686865 703874438088 36508980809030 10 7560468 1967585658075473206486069C78 
8C758C70806069C9C5C854729560776464314C9508607878070970350608070 10080603437 174864 
6990789549504940939 3 30 17C96C4C704044C 107789886468902 75660 184069409C 74 072C5C04 306 
40708C5084656 3659646996C94 10684 7099480890880640 70 706C9080 700939C3456583579064630 
75304C746660640 7509C9C7C404066594979446096656C9976806605059044403809060903707C70 
3654868985640958 360419046440480781908060530804060 5848 8064659484604484 80590806603 
8 609C9C4C34C4C4 7C90C4964845996e099876039980245098055C64048080150904C607666466 5C2 
658659058 760 569094 C9809C04906065G4C4C605 



Table ?. Listing of Matrix Table 
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RANDOM NUMBER TABLE 

50 2 206B629 J9 751 2 29 7 25 758299 35 1 1 6 287 75 239 
5951 5006923^2926905532551 1867331 798581B6 



T298J0B^9 535898260 1. 
0712310^5052268338871 

3 7B63 2T0B55653 2529B 75203 3 210777 75630|8j5 
532108543029B&55302896553201 71 19B6300251 

905208 547 23 7 202 1 7 1 08545 7763 5532 31324282 1 
519^345451 5528241 6527925351 40738B4749911 

9573T0763054267954282870i5l9523056B02235 
96532205B874565658993025587436598201B853 

B63 5T 353T 63 728B40004J 1 3356505 1 7057B45 2B6 
B255510174B4597855B1 1 5563259595l591 65378 

T577T 8081 6542522597508042753265903215672 
97T8535009643lB02459582053977299^8529736 



2 63 2T 2B1393 50 3B 3T 8585 252773 4545 216740 53 1 
293152T975^07933B526545804530456B250B292 



5904' 
31 



7 7 3 6T 2 3950^6 7 55 1 ^ 1 B 2B850 742 4 2 31 1 5 75 3 2 40 4 
56200921 2606T009B65858531491572678B35711 

59T 09520^777745578^5572418542901 5&I32720 
29B792T53057382952081 379009934331 6242231 

7993^3T 608532824573817952^23352550533822 
T67258B30291 1957010704490016700155186450 

3431 2233^07838B7 T t6B5545650540425l6232325 
087250B49831995691 1453682902300419301 183 

Ivh 23 574 5 1 20".3B 52 5B9530 258 747 25 30003593 5 
5420?)021T 1 755329935320B5&321 7520335520B5 

(cont) 
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i 1 56 73 74 7 54 7 5 53 520 7 21 234l8j3 2? 2091 43 63 62 5 
3332719552703006573577350202323134755123 

70 8^02 1 992 45 73 8^ 25 29 6597 3 282 05 63 6 J058<3 3 
934912023530575523252733253039774823941 7 

343 70 2^00 71 7 23 7 2 787 5j 1 J 750 2 1 70 3 80 22 37 55 5 
10S27801 0828287^6930941 87333700251 298907 

75 75 70 54T 6 50T92 2 3 43 3 7 53 1 3 2T 63609 744 5443 7 
30209038283902263233S8925435733922790337 

2459 72967 2]909 I i6T 6725287^27155552637062 7 
152396627307^1?344 705636^095565296194043 

582552231 33 6 747 35 7j? 1 1 58 2 7404 2535 7J9 502 
9335531832369833165035035270935246959796 

203&3355T0T 22 7J03 1 2 5502035200 1 092 55 75 1 3 3 
120605162207227531 775879 700859300l3l7l 54 



Table 8. Listing of Random-Number Cards (Each 
two lines represent one card) 
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SAMPLE BATTING DATA CARDS 

040 7T 6565 1 5 1 56j0g 1 1 5T 2000000]j6j 001017400 
0000503002041 1 1 01 01 0302503081 40000002630 

01 0336007 7J422J00215T 5T5T 5l 5] 528l2g5T0T0 
10T035280205202020203 5280205202020203528 

27 2T 67 77 77 71 8J 00 27 57 52 52 52 5] 2J 52 1 1 57 50 5 
07072525^10104000000383001021 21 71 71 74230 

2047 43 1 7 1 J354J01 1 7 70 1 001000202 50 1 7 73000 
0000223002051 51 51 57535280205101 51 5753528 



0210282020i623J00230257623j|020530273271 1 
1 6261 732061 3271 51 51 70854051 022751 5303035 




0230241 51 62277400208261 7377 726J803072476 
1 720763403052375761 720450305761 01 0253335 



02^820151 5J02054010822351 5J430J00270231 2 
7234163001052716193421320407271515262536 

040 7282 1 2 1 237 7520306]! 107073 47 5380H1 2676 
1 62614420H0271 51 53020450205301 820230451 

0208272021 2721 300323J27 27 2j6j072il322522 
22431 7320370301 522293334031 0281 41 6271 638 



SAMPLE PITCHING DATA CARDS 




0204020202000802060201010508000406040570 
200 5 1 00 50 50 3 27 50 3080500000 1 40 3 4 703 305 

050 70 23 1 5 73 3 3 507050 1 70 1 1 T 1 00T 1^B03 
0304040213051406001 5027 1070308067 703041 6 

770322260^040804057820047203030308700004 
0000000000000000000000000000000000000000 

Table 9. Listing of Sample Batting and Pitching 
Data Cards 



o 



NAME DATA CARDS 




DRYSDALE 


KOUFAX MILLER 


PERANOSKI 


PODRES 


SHERRY CALMUS 


ROWE 


R 1 CHERT 


BOUTON DALEY 


FORD 


SHELDON 


STAFFORD TERRY 


WILLIAMS 


ARROYS 


BRIDGES DOWNING 


REN IFF 


CAMILLI 


ROSEBORO FAIRLY 


GILLIAM 


MCMULLEN 


SKOWRON WILLS 


T. DAVIS 


W, DAVIS 


F„ HOWARDMOON 


WALLS 


BREEDING 


TRACEWSKI FERRARA 


NEN 


BERRA 


BLANCHARDE. HOWARDBOYER 


LINZ 


KUBEK LONG 


PEP 1 TONE 


RICHRDSONLOPEZ MANTLE 


MARIS 


REED 


TRESH 





Table 10. Listing of Sample flame Data Cards 
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S AMPLE OUTPUT 



ENTER DEF LINEUP 



272429282330342205R-S 

(Home team line-up was typed in) 
ENTER BAT ORDER42454748394437401 5RS 

(Visiting team line-up entered) 
KUB EK WALK 

RICHRDSON GROUND BALL 3 

(Ground ball to first — Kubek out to complete double-play) 
KUBEK OUT AT 2ND 

MANTLE STRIKEOUT 

THREE OUTS 

272429282330342205^7 

(At the end of each inning the typewriter will print 
the batting order of the next team to bat; turn switches 
3 and 4 on if you want to change that line-up) 

WILLS STRIKEOUT 6 

GILLIAM SINGLE 
W. DAVIS STRIKEOUT 
T. DAVIS 

(Switch 1 was on, so that Gilliam stole second base) 
GILLIAM SAFE AT 2ND ' 

T. DAVIS FLY BALL 9 

(Fly ball to right field) 
THREE OUTS 

4839443 7407 542^54758 



MARIS SINGLE 

E. HOWARD SINGLE 

Switch 4 was on, so Maris went to third) 
MARIS SAFE AT 3RD 

PEP I TONE STRIKEOUT 

BERRA STRIKEOUT 

BOYER GROUND BALL 2 

THREE OUTS 

23303^22052724292823 
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FAIRLY SINGLE 
F. HOWARD FLY BALL 7 
TRACEWSKI FLY BALL 7 
ROSEBORO STRIKEOUT 
THREE OUTS 

T 55255575839543 750T 5 

TERRY STRIKEOUT 
KUBEK FLY BALL 3 

R I CHRDSON GROUND BALL 5 
THREE OUTS 

52 72429 28 233034 2 20 5 

PODRES FLY BALL 9 
WILLS STRIKEOUT 
GILLIAM WALK 
W. DAVIS SINGLE 
T. DAVIS FLY BALL 7 
THREE OUTS 

5 75<3 39543 7537 55 25 55 7 

MANTLE FLY BALL 9 
MARIS STRIKEOUT 
E. HOWARD SINGLE 
PEP 1 TONE FLY BALL 9 
THREE OUTS 

23303422052724292823 



© 
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FAIRLY SINGLE 
F-, HOWARD STRIKEOUT 
TRACEWSKI GROUND BALL 2 
FAIRLY OUT AT 2ND 
THREE OUTS 

3 7507 55255575839553 7 

BERRA GROUND BALL 2 

BOYER FLY BALL 8 
TERRY GROUND BALL 6 

THREE OUTS 

22052724292823303522 



ROSEBORO 

(Switch 3 was on to call for bunt) 
OUT AT 1ST 

PODRES WALK 

WILLS INFIELD HALF-WAY, SET SW, PUSH START 

(Switches 1 and 8 brought the infield half-way) 
GROUND BALL 5 

PODRES OUT AT 2ND 

THREE OUTS 

525 55 75839543 750T 552 



KUBEK GROUND BALL 6 

Rl CHRDSON GROUND BALL 3 
MANTLE SINGLE 
MARIS 

(Switch 1 was on to call for steal) 
MANTLE SAFE AT 2ND b»™±> 

MARIS STRIKEOUT 
THREE OUTS 

242928233034220 52 724 



o 
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G ILL! AM WALK 
W. DAVIS SINGLE 
T„ DAVIS 

mi /AiJ lt< c 1 Acir AT 1 o e Dn l,or double steal— note that only the 
GILLIAM SAFE AT 3RD outcome of the lead runner Is given) 

T. oiVWPif &&_°93Aft «E went ^ on ball) 
FAIRLY GROUND BALL 4 RUNNERS ADVANCE 
F„ HOWARD GROUND BALL 4 
THREE OUTS 

39543750T 55255575839 

E. HOWARD WALK 
PEP I TONE DOUBLE 

E. H0WAR 1 D C S h AF 4 E W AT S HOME S ° 8C ° red ° n d ° Uble fr0m flrst) 

BERRA GROUND BALL 4 RUNNERS ADVANCE 

BOYER SINGLE 
TERRY SINGLE 

BOYER SAFE AT 3RD 

(Switches 2 and 4 were on to change pitchers — Perranoski enterpd^ 
KUBEK ENTER PITCHER SET SW04RS rerranosKi entered} 

KUBEK GROUND BALL 5 RUNNERS ADVANCE 

RICHRDSON GROUND BALL 5 
THREE OUTS 

34229427252928233034 

(Switch 2 was on to bring; up pinch-hitter — Walls entered) 
TRACEWSKI ENTER PH SET SW32R-S 

WALLS WILD PITCH 

WALLS STRIKEOUT 

ROSEBORO FLY BALL 9 

PERANOSKI ENTER PH SET SW31 
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MOON WALK 

WILLS INFIELD HALF-WAY, SET SW, PUSH START 

OUT AT 1ST 
THREE OUTS 

575839543 750T 5525557 

(A new pitcher was asked for, although switches 2 and 4 were 
MANTLt E¥fW P ^E^ff e s\(M h for the P"cher~Koufax entered) 

MANTLE WALK 

MARIS STRIKEOUT 

E. HOWARD 

MANTLE SAFE AT 2ND 

E. HOWARD GROUND BALL 4 RUNNERS ADVANCE 
PEP I TONE HOME RUN 
BERRA STRIKEOUT 
THREE OUTS 

24292823303222022724 

GILLIAM SINGLE 

W. DAVIS STRIKEOUT 

T, DAVIS STRIKEOUT 

FAIRLY WALK 

F. HOWARD GROUND BALL 4 

THREE OUTS 

50T 55 2555 75839^43 750 

BOYER SINGLE 
TERRY STRIKEOUT 
KUBEK FLY BALL 8 



RICHRDSON GROUND CALL 6 
THREE OUTS 

3 22202272429 2823303 2 



WALLS FLY BALL 7 

ROSEBORO SINGLE 
KOUFAX ENTER PH SET SW21RS 
CAM ILL I STRIKEOUT 

WILLS INFIELD HALF-WAY, SET SW f PUSH START 

(Wills was safe on an error by -the second baseman) 

ERROR 4 

GILLIAM 
OUT AT 1ST 
THREE OUTS 

5 7 I t339 1 +43 7^01 5^2^ 5^7 

MANTLE ENTER PITCHER SET SW02RS 

(Switches 2 and 3 are used to start new game) 
MANTLE ENTER DEF LINEUP 



Line Score of Game 

Yankees OOO 000 330- 5 
Dodgers 000 001 000- 1 



Table 11. Sample Game Played on Computer 
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APPENDIX A 
SPS SOURCE PROGRAM LISTING 



BASEBALL PROGRAM 



lOOlPITCHRDS 
1002TABLE OSS 
1003TEMP DC 
1 00* TEMP I DC 
1005TEMP2 OSS 
10O6RANO0MDSS 
J OOTL ! ST OAS 
1008XF 
100986 
1010BA 
10UK2B 
J012K3B 
1013HR 
I014XK 
1015S8A 
1016 
1017XW 
1010PC 
1019MOB 
1 020KC 
I02IWP 
1 022PHR 
1 023SPC 
1024 
1023ARG 
1 026ANS 



OS 
OS 

OS 

OS 

OS 

OS 

OS 

OS 

OSS 

OS 

OS 

OS 

OS 

0$ 

OS 

OS 

OSS 

OS 

DC 



1027OROER OSS 



1026 
1029 

1030OUTS 

1031 

2001M1 

2002M2P 

2003M2 

2004M3 

2003M4 

2006M5 

2007M6 

2008M7 

2009M8 

2010M9 

201 1M10 

2012M1 1 

2013M12 

2014M13 

201SM14 

2016M15 

2017M16 

2016M17 

2019M18 

S020M19 

2021M20 

2022M21 

2023M22 

2024M23 

2029M24 

20H6M25 



OC 

OSS 

DC 

OC 

OAC 

OAC 

OAC 

OAC 

OAC 

OAC 

OAC 

OAC 

OAC 

OAC 

OAC 

OAC 

OAC 

DAC 

OAC 

OAC 

OAC 

OAC 

OAC 

DAC 

OAC 

OAC 

DAC 

OAC 

OAC 

OAC 



** •••NUMBER OF PITCHER 

50OO..3OO0-DICIT TABLE 

2t00 

2.00 

30 

2000 
B«0 
2 
2 

2 
2 
2 
2 
2 
2 

784 

2 
2 
2 
2 

2 

2 
2 

306 
2 

2*00 

20 

!•• 

S 

2*00 

I. *. 19687 

16. ENTER BAT ORDER* 

17 . ENTER DEF LINEUP* 
14. ENTER PITCHER* 
13.SAFE AT HOME* 

I 2. OUT AT HOME* 
12. SATE AT 3RD* 

II. OUT AT 3RD* 
12. SAFE AT 2ND* 
1 1 .OUT AT 2ND* 
9. SET SV* 

9 .ENTER PH* 

8. POP OUT* 

11 .OUT AT 1ST* 
7. SINGLE* 
11 .WILD PITCH* 
3* WALK* 

9. PICK-OFF* 

10. ERROR 0* 
7.0OUBLE* 

7. TRIPLE* 
9, HOME RUN* 
1 0. STRIKE OUT* 

11 . FLY BALL 0* 

I 4. GROUND BALL 0* 
17. RUNNfcRS ADVANCE* 

i i .three outs • 



2027M26 


DAC 


31. INFIELD IN. SET SW. 


PUSH 


START • 




5008 


BTM t 


2028M27 


DAC 


37. INFIELD HALF-WAY* SET SW. 


PUSH START* 


5009 


BTM 


3001 READ 


RNCO 


TA8LE .500 .210. 


FIRST = 


READ + 11 




5010 


BTM 


3002 


am 


READ + 6,80.810. 


SECOND = 


READ +21 


501 1 


CM 


3003 


CM 


READ + 6. TABLE + 


5000. 


8 






5012 


BN 


3004 


BN 


READ 










5013 


AM 


3O06RD 


RM 


RON9O0.SO6101O. 


THIRD = 


RD + 11 




5014 


TFM 


3007 


CM 


RD + 6. RANDOM + 2000.7 


. TEST 


FOR LAST 


CARD 


50 15 


WATY 


3008 


BN 


RD 










5016 


WATY 


3009RD 1 


RN 


XF - 1 .500.210 










5017 


H 


30 1 


AM 


RD1 + 6.80.10 










5018 


BTM 


30 1 1 


AM 


RD 1 + 11.1.10 










5019A2 


TFM 


3012 


CM 


RD1 + 11.14.10 










5020 


BTM 


30 1 3 


BNE 


RD1 










5021 


BTM 


30 14 


RACO 


LIST 










5022 


BTM 


30 15 


RACD 


LIST + 160 










5023 


CM 


30 16 


RACO 


LIST + 320 










5024 


BN 


3017 


RACE 


LIST + 480 










5025 


AM 


3018 


RACD LIST + 640 










5026 


WATY 


3019 


RACD LIST + 800 










5027 


WATY 


3020 


RACD 


LIST + 960 










5028 


H 


3021 


WATY 


M2P 










5029F1 


TFM 


3022 


RCTY 










5030 


BTM 


3023 


RNTY 


19667 










5031 


B 


3024 


SF 


19667 










5032G 


TF 


3025 


SF 


19669 










5033 


TFM 


3026 


SF 


19671 










5034 


WATY 


3027 


SF 


19673 










5035 


RCTY 


3028 


SF 


19675 










5036 


B 


3029 


SF 


19677 










5037H 


WATY 


3030 


SF 


19679 










5038 


WATY 


303 1 


SF 


19681 










5039 


H 


3032 


SF 


19683 










5040 


B 


3033 


TF 


PITCHR. 19684 










504 IF 


TFM 


3034 


RCTY 










5042 


BTM 


3035ENTER 


WATY 


Ml 










5043 


BTM 


3036 


RNTY ORDER 










5044 


BTM 


3037 


SF 


ORDER 










5045 


CM 


3038 


SF 


ORDER + 2 










5046 


BN 


3039 


SF 


ORDER + 4 










5047 


WATY 


3040 


SF 


ORDER + 6 










5048 


H 


3041 


SF 


ORDER + 8 










5049 


AM 


3042 


SF 


ORDER -1- 10 










5050 


BTM 


3043 


SF 


ORDER + 12 










5051 I 1 


TF 


3044 


SF 


ORDER + 14 










5052 


B 


3045 


SF 


ORDER + 16 










50531 


WATY 


3046 


TF 


TEMP. ORDER + 17 










5054 


H 


4001SW1 


BTM 


NAME. ORDER + 1.7. 


WRITE 


NAME 


OF BATTER 




5055 


B 


4002 


CM 


P I TCHR. 20 ♦ 10.TEST 


FOR 


PROPER 


NUMBER IN PITCHR 


5056E 


CM 


4003 


BP 


S... BRANCH IF NO 


PITCHER 






5057 


BE 


4004 


BNC1 


A 










5058 


TFM 


4005 


BC2 


B 










5059 


BTM 


4006 


BC3 


C 










5060 


BTM 


4007 


BC4 


D 










5061 


BTM 


5001 


CM 


RD + 11.0.10. 


BEGIN STEAL ROUTINE 


5062 


CM 


5002 


BE 


E 










5063 


BN 


5003 


CM 


READ + 21,0.10 










5064 


WATY 


5004 


BNE 


F 








SH - 


5065 


H 


5005 


cm 


READ + 11.0,10 








5066 


AM 


5006 


BE 


F 










5067 


BTM 


5007 


TFM 


ARG.2. 10 










5068K1 


TF 



11. 7. TYPE NAME OF FIRST BASE RUNNER 
(•11.7 



SPIN. 0. 10 
ANS. 10. 10 

G 

OUTS .1.10 
READ + 1 1 * • 1 
M8 
M9 



10 



+ 11, 7. TYPE NAME OF THIRD-BASE RUNNER 



ANS. 10. 10 

H 

OUTS. 1.10 
M4 
M9 

RD + 11.0.10 



SW1 
READ 

READ + 
M7 

A2 

M3 
M9 

RANDOM 
Fl 



21 .READ 
11.0.10 



COUNTER IN H+30 



+ 11 ,7. TYPE NAME OF THIRD-BASE RUNNER 



ANS. 10. 10 

I 

M4 

OUTS* 1.10 
OUT, 0.10 
RD+1 1 .READ 
Kl 

M3 



I 1 

READ 



+ 21 .0.10 



+ 21. 7. TYPE NAME OF 2ND— BASE RUNNER 



ANS. 10, 

K 

M6 



OUTS. 1 .10 



READ + 2 I. READ + 11 



© o a 



5069 


TFM READ + 11*0.10 


6039 


WATY M9 


5070 


B SW 1 


6040 


TFM 


ZZZ+6. 19668.7. INITIALIZE ADDRESS 


507 IK 


WATY M5 


6041ZZZ 


C 


0.PITCHR..FIND BATTING POSITION OF CURRENT 


5072 




6042 


BE 


ZZ A.,, BRANCH WHEN FOUND 


5073 


H 


6043 


AM 


ZZZ+6. 2. IO. MODIFY ADDRESS 


5074 


B K 1 


6044 


B 


ZZZ... BRANCH FOR LOOP 


5075J ' 


TFM ARG.2.10 


6045ZZA 


RNTY P I TCHR- 1 ... ACCEPT NEW PITCHER 


5076 


BTM STEAL* READ + 11»7 




SF 


PITCHR - 1 


5077 


BTM SPiNtOi 1 


6047 


TF 


ZZB+6. ZZZ+6. .MODIFY ADDRESS 


5078 


BTM NAME*REAC + 11*7 


6048ZZB 


TF 


0. PITCHR. .PUT NEW PITCHER IN BATTING ORDER 


5079 


CM ANS • 1 • 1 


6049 


B 


SW1 


5080 


BN L 


©050R 


BNC3 ZC 


5081 


1 rn r< d fly T 1 1 tUHU 


700 1 


TFM 


ARG.IO.IOII. SAC ROUTINE 


5082 


WATY ' MQ 


7002 


BTM 


COMB.XK.7 


5083 


H 


7003 


CM 


ARG.0.10 


5084 


am Outs* i * i o 


7004 


BNP 


T 


5085 


BTM OUT • 1 ♦ 1 


7005 


BTM 


SPIN. 0. 10 


5086 


B S W 1 


7006 


CM 


ANS. 10. I O 




TF DPAfl -1. 1 .DPjin . i i 
1 r KtHU -t- £.1 % Mt AU + 1 1 


7007 


BN 


KS 


5088 




7008T 


TFM 


ARG.10.101 1 


5689 


WATY M7 


7009 


BTM 


COMB.BB.7 






7010 


CM 


ARG.O.10 


5091 


R CU 1 - - - prion CTF Al Dm it f KiCT 


701 1 


BNP 


U - 12 


600 1 B 


TFM SPC + 305.3*10* INF = SPC + 305 


7012 


BTM 


SPIN. 0.10 


6002 


WATY M27» • .MESSAGE—— INFIELD PUAYING IN 


70 1 3 


CM 


ANS. 10. 10 


6003 


H 


7014 


BN 


D 


6004 


RCTY 


70 15 


TF 


U+ 11. H+30 


6005 




7016U 


TF 


SPC + 303 


6006C 


TFM SPC + 305*6*10 


7017 


SM 


SPC + 303.9.10 


6007 


WATY M26. « .MESSAGE— — INF IELD PLAYING HALF— WAY 


70 1 8 


BO 


V. SPC + 303 


6008 


B B + 24 


7019 


TFM 


ARG.50.10 


6009A 


TFM SPC + 305*0*10 


7020 


BTM 


SPIN.O. IO 


6010 


BNC2 R 




CM 


ANS. 10.10 


601 1 


BC3 RPR 


7022 


BN 


KS 


6012 


BC4 S 


7023V 


CM 


SPC + 305*6* IO 


60 1 3 


WATY M10 


7024 


BN 


W 


60 14 


WATY M9 


7025 


TF 


V + 47. H + 30 


60 15 


C ORDER+ 1 • ORDER+3 • * TEST FOR PH FOR PITCHER 


7026 


TF 


SPC + 303 


6016 


BP NP*.. BRANCH IF NOT PITCHER 


7027 


BO 


X*SPC + 303 


6017 


C ORDER + 1 * ORDER + 5 


7028 


WATY Mil 


6018 


BP NP 


7029 


RCTY 


6019 


C ORDER + 1* ORDER + 7 


7030 


AM 


OUTS. I* 10 


6020 


BP NP 


7031 


BTM 


OUT.O.IO 


602 1 


C ORDER + 1 • ORDER + 9 


7032 


CM 


RD + 11.0*10 


6022 


BP NP 


7033 


BE 


Y 


6023 


C ORDER + 1 * ORDER + 11 


7034 


TFM 


RO + 11*0*10 


6024 


BP NP 


7035 


WATY M6 


6025 


C ORDER + 1. ORDER + 13 


7036 


H 




6026 


BP NP 


7037 


AM 


OUTS. 1 * IO 


6027 


C ORDER + 1 « ORDER + 15 


7038 


BTM 


OUT.O.IO 


6028 


BP NP 


7039 


B 


NEXT 


6029 


C ORDER + 1. ORDER + 17 


7040Y 


CM 


READ + 21*0*10 


6030 


BP NP 


7041 


BE 


Z 


6031 


RNTY ORDER. ,. ACCEPT PINCH-HITTER 


7042 


TFM 


READ + 21 .O.IO 


6032 


SF ORDER 


7043 


WATY 


M8 


6033 


TF TEMP . ORDER+ 1 « » REPLACE PITCHER WITH PH 


7044 


B 


Y - 48 


6034 


B SW1 


7045Z 


CM 


READ + 11*0.10 


6035NP 


RNTY ORDER* . .ACCEPT PINCH-HITTER 


7046 


BE 


NEXT - 12 


6036 


SF ORDER 7047 


TFM 


READ + 11.0*10 


6037 


B SW1 — ^ to 


7048 


WATY 


M12 — *r 

Z - 12 ~* 


6038S 


WATY M2 


7049 


B 



7- 



7050 H 

7051 NEXT TF ORDER + 19. ORDER 

7052 TR ORDER « ORDER + 2 

7053 B SW1 

7054X CM RD + 11*0* to 

7055 BE Z2 + 24 

7056 TFM ARG.5.10 

7057 BTM STEAL. RD + 11.7 

7058 BTM SPIN. 0.10 

7059 BTM NAME.RD + 11.7 

7060 TFM RD + 11*0*10 

7061 BD Zl *ANS - 1 

7062 WATY M4 

7063 AM OUTS* 1*10 

7064 BTM OUT. 0.10 

7065 TF RD + 11. READ + 21 

7066 TF READ + 21* READ ♦ 

7067 TF READ + 11«0RDER + 

7068 B NEXT - 12 
7069Z1 TFM ARG.20.10 

1*7 



7070 


BTM 


STEAL. ORDER + 


7071 


BTM 


SPIN. 0.10 


7072 


BO 


Z2.ANS - 1 


7073 


WATY M3 


7074 


RCTY 


7075 


WATY M12 


7076 


TF 


RD + 11 *READ + 


7077 


TF 


READ + 21 .READ 


7078 


TFM 


READ + 11*0*10 


7079 


AM 


OUTS* 1*10 


7080 


BTM 


OUT. 0.10 


7081 


B 


NEXT - 12 


7082Z2 


WATY M13 


7083 


B 


Zl - 48 


7084 


TFM 


ARG.25,1011 


7085 


BTM 


COMB. B A. 7 


7086 


MM 


ARG.1.10 


7087 


TF 


40*99 


7088 


TFM 


ARG.O.IO 


7089 


BTM 


STEAL. ORDER + 


7090 


A 


40.ARG 


7091 


MM 


40.5.10 


7092 


SF 


97 


7093 


TF 


ARG.98 


7094 


BTM 


SPIN. U. 10 


7095 


BD 


Z1+60.ANS - 1 


7096 


B 


Z2 


7097W 


CM 


SPC + 305*3*10 


7098 


BN 


W + 48 


7099 


TFM 


ARG.15, 101 1 


7100 


B 


Z2 + 36 


7101 


TFM 


ARG.O.IO 


7102 


B 


ZZ + 36* •« 


8001 


DSS 


100 


8002SPIN 


TF 


SPIN + 18.H + . 


8003 




0.50.9 


8004 


CM 


ARG.50. 1 


8005 


BP 


M 


8006 


A 


99«ARG 


8007 


AM 


99 .TABLE - 1.7 


8008 


TF 


N + 1 1 . 99 



END SAC ROUTINE 



30 
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8009N 

8010 

8011 

8012 

80130 

8014 

8015 

8016 

8017 

8018 

8019M 

8020 

8021 

80220. 

8023 

8024 

8025 

8026 

8027 

8028P 

8029 

9001 OUT 

9002 

9003 

9004NEW 

9005 

9006 

9007 

9008 

9009 

9010 

9011 

9012 

9013 

9014 

9015 

9016 

9017 

9018 

9019 

9020 

9021 

9022 

9023 

9024 

9025 

9026 
10001 COMB 
10002 
10O03 
10004ZA 
IOOOS 

11001PITCH 

11002 

1 1003 

1 1004ZB 

11005 

12001START 
12002 
12003 
12004 



TO ANS - 1 
SF *ANS - 1 

H + 30*1*10 
O + 1 1 «H + 30.7 
ANS 
ANS 

H 4- 30* 1*10 

H + 30. RANDOM + 1999.7 
P 



AM 
TFM 
TD 
CF 
AM 
CM 
BP 
BB 
S 

AM 

fF 
BD 
SM 
A 
B 



99«ARG 

99* TABLE + 99*7 
Q + 11*99 
Q + 48 
99.100.9 
99.ARG 
N - 12 
TDM ANS — 1 
B -N + 12 

TFM H + 30. RANDOM-*- 1*7 
BS 

CM OUTS. 3. 10 
BI NEW* 1300 
BB 

TFM OUTS. 0.10 

TFM READ + 11*0*10 

TFM READ + 21*0.10 

TFM RD + 11*0*10 

TF ORDER + 19. ORDER + 1 

TR ORDER. ORDER -I- 2 

RCTY 

WATY M25 

RCTY 

WNTY 19667 

TF ORDER + 19«ORDER + 1 
RCTY 

TR TEMP2 • ORDER 
TR ORDER « 19667 
TR 19667* TEMP2 
TF TEMP1*PITCHR 
TF P I TCHR • TEMP 
TF TEMP. TEMPI 
H 

BNC3 SW 1 
BNC4 SW 1 

TFM SW1 - 11*41.10 

B ENTER 

TF ZA + 11. COMB - 1 

MM ORDER + 1 . 16.9 

SM 99.16.10 

AM 99 

B AQZ - 12 

TF ZB + 11, PITCH - 1 

MM PITCHR.14.9 

SM 99.14.10 

AM 99 

B AOZ - 12 
MM PITCHR.14.9 
SM 99*14.10 
AM 99. SPC. 7 
TF AA + 6.99 



12005AA 

12006 

13001NAME 

13003 

13003 

13004MM 

13005 

13006 

13007NAM 

13008 

13009 

14001 STEAL 

14002A1 

14003 

14004 

14005 

14006AQZ 

14007 

14008 

15001ZC 

15002 

15003 

15004 

15005 

15006 

15007 

15008 

15009 

15010 

1501 1 

15012 

15013ZG 

15014 

15015 

15016 

15017 

15018ZF 

15019 

15020 

15021 

15022 

15023 

15024ZH 

15025 

15026 

15027 

15028ZJ 

15029 

15030ZE 

15031 

15032 

15033 

15034 

15035 

15036D 

15037 

1 5038 

15039 

15040 

1504 1 

15042 



S »START - 1 

BB 

TFM NAM+6. LIST. 7. INITIALIZE ADDRESS 
TF MM+6 .NAME-1 . » IN IT IALIZE ADDRESS 
RCTY 

MM 0.20. 9, MODIFY ADDRESS 

SM 99.20* 10« ADDRESS = 20N - 20 

A NAM+6. 99. .ADDRESS OF PLAYER NAME IN 

WATY, 100. .TYPE NAME 

SPT Y ... SPACE TYPEWRITER 

BB 

Al + 6 . STEAL - 1 
0.16,9 



TF 
MM 

SM 
AM 
TF 
A 
BB 

DSS 100 
TFM ARG.O. 10. 
BTM COMB.BB .7 
BTM SPIN.0.10 
BD ZD .ANS - 1 
BNC4 ZE 
BD ZE.ANS 
TFM ARG.2.10 
BTM SPIN. 0.10 
WATY M16 
BD ZF » ANS - 
TDM M17 + 16.1 
WATY M17 



99. 16. 10 
99.SBA.7 
AQZ + 11.99 
ARG 



CHECK FOR WALK 



1 1 . READ + 
+ 21 .READ 
+ 11.0.10 



TF RD + 
TF READ 
TFM READ 
H 

B SW1 

AM OUTS. 1.10 

BTM OUT. 0.10 

CM RD + 1 1 . . 1 O 

BE ZH 

TFM RD + 11.0.10 

B ZF - 24 

CM READ + 21.0.10 

BE ZJ 

TFM READ + 21.0.10 

B ZF - 24 

TFM READ + 11.0. 10 

B ZF - 24 

TFM ARG. 0.10 

BTM PITCH. WP.7 

BTM SPIN. 0.10 

BD D.ANS - 1 

WATY M14 

B ZG 

WATY M15 

BTM START. 1.10 

CM READ + 11.0.10 

BE Zl - 24 

CM READ + 21.0.10 

BE Zl - 36 

B Zl - 48 



16001ZD 

16002 

16003 

16004 

16005 

16006QA 

16007 

16008 

16009 

16010 

16011QB 

16012 

16013 

16014 

16015 

16016 

16017 

16018 

16019QC 

16020 

16021 

16022 

16023 

16024 

16025 

16026 

16027H1 

16028 

16029 

16030 

16031 

16032 

16033 

16034 

16035 

16036ZN 

16037 

16038 

16039 

16040ZM 

16041 

16042 

16043 

16044 

16045 

16046 

16047 

16048 

16049 

16050 

16051 

16052 

16053 

16054ZQ 

16055 

16056 

16057 

16058ZP 

16059 

16060 

16061ZL 



TF ARG.SPC + 305. . 
CM RD + 11.0.10 

BE QA 

BTM PITCH. MOB. 7 
B QB 

CM READ + 21.0.10 

BNE ZD + 36 

CM READ + 11.0.10 

BNE ZD + 36 

BTM P I TCH.PC .7 

TF 50.ARG 

TFM ARG. 0.10 

BTM PITCH.SPC.7 

TF ANS. ARG 

TF ARG. 50 

CM ANS .0.10 

BI QC.1300 

S ARG. ANS 

BTM COMB. B A. 7 

CM ARG .0.10 

BMP ZK 

BTM SPIN. 0. 10 
BD ZK.ANS - 1 
TFM ARG. 0*10 
BTM COMB.K2B.7 

TF HI + 1 1 .H + 30 
C ARG 
BN ZL 

BTM START.3.10 
WATY M18 
TFM ARG.2.10 
BTM SPIN. 0.10 
BD ZM.ANS - 1 
TDM M17 + 16.9 
WATY M17 

TFM READ + 11.0.10 
TFM READ + 21 .0. 10 



CHECK FOR HIT 



1 1 . ORDER + 
- 12 
1 1 .0. 10 
+21 .ORDER 



TF RD + 
B NEXT 
TFM RD + 
TF READ 
BNC4 ZP 

CM READ + 11.0.10 

BE NEXT - 12 

TFM ARG. 25. 10 

BTM STEAL.READ + 11 

BTM NAME . READ+ 11.7 

TFM READ + 11.0.10 

BI ZQ - 24. 1400 

BTM SPIN, 0.10 

BD ZQ.ANS - 1 

WATY M3 

B NEXT - 12 

WATY M4 

AM OUTS. 1,10 

BTM OUT. 0.10 

B NEXT - 12 

TF RD + 11 .READ + 

TFM READ + 11.0,10 

B NEXT - 12 

TFM ARG .0.10 



16062 


BTM COMB* K3B 


16063 


TF H2 + ll»H + 30 




16064 HZ 


C ARG 




16065 


BN ZR 




16066 


WATY Ml 9 




16067 


BTM START, 4, 10 




16068 


TFM ARG«2*10 




16069 


BTM SPIN. 0,10 




16070 


BO ZN*ANS ■* 1 




16071 


TOM M17 4 16t8 




16072 


WATY M 1 7 




16073 


TFM RO + lt*O*10 




16074 


TFM REAO 4- 11*0*10 




1 6075 


TFM RE AO 4" 21*0*10 






CI MPW ~> t 9 
CS NCA 1 v i tl 




1 6Q77ZR 


TFM ARG*0*10 




16076 


BTM PITCH«PHR«7 




16079 


BTM COMB.HR.7 




16080 


TF H3 + 1 1 • H 4- 30 




16081H3 


C AR6 




16082 


BN ZS 




16083 


WATY M20 




16084 


BTM START *5* 10 




16085 


B ZR ~ 48 




16086ZS 


WATY M13 




16067 


BTM START «2« 10 




16088 


TFM ARG«2*10 




16089 


BTM SPIN. O. 10 




16090 


BO ZTcAWS - 1 




16091 


TOM M17 +- 16*7 




16092 


WATY Ml 7 




16093 


B ZM 




16094ZT 


BNC4 Zl - 48 




16095 


CM READ -1- I 1*0.10 




16096 


BE ZV 




16097 


TFM ARG .38, 10 




16098 


BTM STEAL »READ 4-11 




16099 


01 ZW.140Q 




161 OO 


BTM SPlM.G. 10 




161 Ol 


BO ZX*ANS — 1 




16102ZW 


BTM NAME (READ -1- lit 


7 


16103 


WATY MS 




161 04 


TF RD + 1 1 <READ 4- 


11 


161 05 


TF READ + 1 1 « ORDER 




16106 


TFM READ + 21*0*10 




161 07 


B NEXT "* 12 




161 08ZX 


BTM NAME « READ * 11* 


7 


161 09 


WATY M6 




161 10 


am Outs. i . 10 




161 1 1 


BTM OUT .1.10 




16112 


TFM RO + 11*0*10 




161 13 


B ZX - 36 




161 I4ZV 


CM READ + 21*0*10 




161 15 


BE ZV - 24 




161 16 


TFM ARG. 48. 10 




161 17 


BTM STEAL. RE AD + 21 




161 18 


BI ZZ.1400 




161 '.9 


BTM SPIN. 0.10 




16120 


BD ZZ + 36.ANS - 1 




16121ZZ 


BTM NAME, READ + 21. 


7 


16122 


WATY M3 





-to- 



16123 


B 


ZV - 24 


16124 


BTM 


NAME » RE AO + 21 


16125 


WATY M4 


16126 


AM 


OUTS* 1*10 


16127 


BTM 


OUT* 0*10 


16128 


B 


ZV - 24... 


17001ZK 


TFM 


ARG, 0*10 


17002 


BTM 


P I TCH • «C « 7 


17003 


BTM 


COMB • XK • 7 


17004 


BTM 


SPIN. 0. 10 


17005 


BO 


ZYtANS - 1 


17006KS 


WATY M21 


17007 


AM 


OUTS* 1.10 


17008 


BTM 


OUT. 0.10 


17009 


B 


NEXT - 12 


17010ZY 


CM 


ANS.70. 10 


17011 


BN 


OH 


17012 


CF 


ANS - 1 


17013 


TO 


M22 4- 18.ANS - 


17014 


WATY M22 


17015 


AM 


OUTS* 1*10 


17016 


BTM 


OUT. 0.10 


17017 


TD 


SPIN - 1 « ANS 


17018 


TDM 


SPIN - 2.0.11 


17019 


CM 


RO 4- 11*0*10 


17020 


BE 


NEXT - 12 


17021 


BNC4 QE 


17022 


CM 


SPIN - 1*4.10 


17023 


BI 


OE*1300 


17024 


TFM 


ARG* 10. 10 


17025 


BTM 


STEAL. RD 4- U," 


17026Q6 


BI 


QG 4- 48.1400 


17027 


BTM 


SPIN.O. 10 


17028 


BTM 


NAME.RD + 11*7 


17029 


BO 


QF.ANS - 1 


17030 


WATY M3 


17031 


TFM 


RO 4- 11*0.10 


17032 


B 


NEXT - 12 


17033QF 


WATY M4 


17034 


TFM 


RO 4- 11*0« 10 


17035 


B 


ZK + 72 


17036QE 


CM 


SPIN - 1.7.10 


17037 


BI 


QE 4- 48.1300 


17038 


TFM 


ARG* 30. 10 


17039 . 


B 


06 » 12 


17040 


TFM 


ARG. 40. 10 


17041 


B 


QG - 12 


17042QH 


TD 


SPIN - LANS - 


17043 


CF 


ANS - 1 


17044 


TD 


M17 + 16, ANS - 


17045 


TD 


M23 + 24, ANS - 


17046 


TD 


ARG. ANS - 1 


17047 


TDM 


ARG - 1*0*11 


17048 


BTM 


SPIN.O. 10 


17049 


BD 


QC « ANS - 1 


17050 


WATY M17 


17051 


B 


Zl - 48 


17052QL 


WATY 


M23 


17053 


TD 


SPIN - 1 ,ANS 


17054 


TDM 


SPIN - 2.0,11 


17055 


am 


OUTS, 1.10 



END HIT ROUTINE 



© 



o 







1 7056 


BTM 


OUT. 1.10 


17057 


CM 


SPIN - 1,4.10 


1 7058 


BP 


QJ 


1 7059 


CM 


READ + 11.0,10 


1 7060 


BE 


QJ 


1 706 1 


BTM 


NAME, READ + 11,7 


1 7062 


W AT Y M8 


1 7063 


AM 


OUTS. 1.10 


1 7064 


BTM 


OUT.O. 10 


1 7065 


TF 


RD + 1 1 . READ + 21 


17066 


TFM 


READ + 21.0,10 


17067 


TFM 


READ + 11.0.10 


17068 


B 


NEXT - 12 


17069QJ 


CM 


READ + U.O.10 


17070 


BNE 


QJ1 


17071 


CM 


READ + 21,0,10 


17072 


BNE 


QJ1 


17073 


CM 


RD + 11,0,10 


17074 


BE 


QJ1 + 12 


17075QJ1 


WATY M24 


17076 


TF 


ORDER + 19, ORDER 


17077 


TR 


ORDER, ORDER + 2 


17078 


B 


ZG 


17079RPR 


TFM 


ami - ii,26,io»re 


17080 


B 


RDl + 144,., START 
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APPENDIX B 



SYMBOL TABLE 
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END OF PASS I I 

00403 *P|TCHR 00404 TABLE 05405 TEMP 

05407 TEMPI 05408 TEMP2 
05438 * RAN DOM 07439 LIST 08559 XF 

08561 BB 08563 BA 

08565 K2B 08567 K3B 08569 HR 

08571 XK 08573 SBA 

09359 XW 09361 PC 09363 MOB 

09365 KC 09367 WP 

09369 PHR 09371 SPC 09679 ARG 

09681 ANS 09682 ORDER 
09709 OUTS 09711 Ml 09743 M2P 

09777 M2 09805 M3 

09831 M4 09855 M5 09879 M6 

09901 M7 09925 M8 

09947 M9 09965 M10 09983 Mil 

09999 Ml 2 10021 Ml 3 
10035 M14 10057 M15 10067 M16 

10085 Ml 7 10105 M18 
10119 M19 10133 M20 10151 M21 

10171 M22 10193 M23 
10221 M24 10255 M25 10277 M26 

10339 M27 10412 READ 
10460 RD 10508 RD1 10820 ENTE 

R 10964 SW1 11264 A2 

11384 F1 11420 G 11480 H 

11528 F 11648 II 

11 ^72 | 11708 E 1 1852 K1 

11888 K 11935 J 
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2080 L 12140 B 12200 C 

12236 A 12548 NP 

12584 S 12620 ZZZ 12668 ZZA 

12704 ZZB 12728 R 

12824 T 12920 U 13004 V 

13208 Y 13268 Z 

13340 NEXT 13376 X 13556 Z1 

13712 Z2 13892 W 

14064 SPIN 14148 N 14196 a 

14268 M 14304 Q 

14376 P 14400 OUT 14436 NEW 

14712 COMB 14748 ZA 

14772 PITCH 14808 ZB 14832 STAR 

T 14880 AA 14904 NAME 

14940 MM 14976 NAM 15012 STEA 
L 15024 A1 15072 AQZ 

.15196 ZC 15340 ZG 15400 ZF 

15472 ZH 15520 ZJ 

15544 ZE 15616 D 15700 ZD 

15760 QA 15820 QB 

15916 QC 16012 HI 16120 ZN 

16168 ZM 16336 ZQ 

16384 ZP 16420 ZL 16456 H2 

16612 ZR 16660 H3 

16720 ZS 16816 ZT 16912 ZW 

16984 ZX 17056 ZV 

17140 ZZ 17236 ZK 17296 KS 









M 




EH 




CQ 




M 
Hi 


o 






1 


H 




« 






§ 








EH 




O 




W 




•-3 








o 




s 



BASEBALL GAME SPS OBJECT PROGRAM 



360007200500360020 1 0050044000 1 20027626000590027425000 1 1 00000260009000269 
26000950026431 000000020026001 140027425000000001 1490001200000 



00 
00 



M55563455900424 1 630056594445590Z 
M55563455900444546005349554564570Z 
M5556345590057496343484559OZ 
024 14645004 16300465654450Z 
N66463004 1 6300485654450Z 
024 14645004 163007359440Z 
N66463004 1 6300 7359440Z 
024 1 4645004 1 63007255440Z 
N66463004163007255440Z 

6245630062660Z 
M555634 5590057480Z 
N75657005664630Z 
N66463004 1 63007 1 62630Z 
0249554 753450Z 
06495344005749634 3480Z 
064 153520Z 
N7494352205646460Z 

455959565900700Z 
M456644253450Z 
03594957534 50Z 
M8565445005964550Z 
0263594952455664630Z 
M6536800424 1 535300700Z 
M7595664554400424 15353O070OZ 
- 596455554559620041 44654 15543450Z 
034859454500566463620Z 

M9554 64 9455344 004955230062456300626623005764624800Z 
62634 159630Z 

M95546494 55344 00484 1 534620664 1 68230062456300626623Z 

576462480062634 159630Z 
360040400500 111041 8OOOQ0 1 4 1 04 1 80N40447 1041 20 1 300360543800500ZOO U04 1 2 J0472 00 
1 1 10466000Q014 10466074384710460013003608558005001 1 1 051 4000Q0Z00 1 J0472 J0532 00 
1 1 10519000C1 14 105 19000 J447 1 05080 1 200370743900500370759900500ZOO 1 J0532J0592 00 
370775900500370791900500370807900500370823900500370839900500Z001J0592J0652 00 
390 974300 1003400000001 02361966700 10032 196670000032 1966900000Z001J0652J07 12 00 
32 1 967 1 0000032 1 96730000032 1 96750000032 196770000032 1 9679000O0Z00 1 J07 1 2J0772 00 
32 1 9631 000003? 1 96830000026004031 96843400000001 02390971 1 00 1 OOZOO U0772J0832 00 
3609682001 0032096820000032096a40000032096S600000320968800000Z001J0832J0892 00 
320969000000320969200000320969400000320969600000320969800000Z001 J0892J0952 00 
2T054 0509699) 7 14904 09683 140040 3000K 046 125840 1 100471 2236001 OOZOO U0952 J 101 2 00 
461 21100020046 122000030046156160040014 1 047 1 000046 1 1 7080 1 2O0Z0O U 1 1 2 J 1 072 00 
14104 33 0000047 1 1 b?80 12 00141 042 30000046 1 1 5280 1 200 16096790000 2 ZOO 1J 1 072 J 1 132 00 
1 7 1 4904 J0423 17 1501? J0423 1 7 1406400000140968 1000 J0471 14200 1300Z00 Ul 132J1 192 00 
1 1 09 70900001 16 1 0423000003909925001 00390994700 100480000000000Z001J1 192J1252 00 
1 71 440000000 1609679000 JL1 71501 2 J0471 1 7 1 406400000 1 7 1 4904 J047 1 ZOO U 1 252 J 1 3 1 2 00 
1 40966 1000J047 1 148001300 1 1 097090000 1 390983 1001 00390994700 1 OOZOO 1J 1 3 1 2 J 1 372 00 
46000C0O0000161C471C00OOI 7 1 440 00 000049 109640000026 10433 10423 ZOO 1J1372J 1432 00 
l'~ 1 04 5>000CC 390990 1 OC 1 0034 0000000 1 0249 1 1 26400000390980500 1 OOZOO 1 J1432J1492 00 
39 994 700 ! (,048054 3900002491 138400000 1609679OOOKN1 7 1501 2J0471 ZOO I J 1492 J 1552 00 
1 714064 00001 7 14904 J0471 1 40968 1 000 J047 1 1 6720 1 3Q0390983 1001 OOZOO 1 J 1552 J 16 1 2 00 
480 0000000001 1 0970900001 1 7 1 44000000026 1047 1 1C433491 185200000ZOO 1J1612J1672 00 



1010540405408 00 
1010968009682 00 
1010970209703 00 
1010970809710 00 
101 J9687J9688 00 
1010971009742 00 
1010974209776 00 
1010977609804 00 
1010980409830 00 
1010983009854 00 
1010985409878 00 
1010987809900 00 
1010990009924 00 
1010992409946 00 
1010994609964 00 
1010996409982 00 
1010998209998 00 
10109998J0020 00 
101 J0020J0034 00 
10U0034J0056 00 
101 J0056J0066 00 
10U0066J0084 00 
10U00S4J0104 00 
101 JO 1 04 JO 1 18 00 
101 J01 18J0132 00 
101 JO 132 JO 150 00 
101 J0150J0170 00 
101 J0170J0192 00 
101 J0192J0220 00 
101 J0220J0254 OO 
101 J0254J0276 00 
101 J0276J0326 OO 
101 J0326J0338 00 
101 J0338J0388 00 
101 J0388J04 12 00 



3909605001 004800000000004 91 164800000141043300000461 1 9360 1200Z00 1 J 1672 J 1732 00 

1 6096 790000Q 1 7 1 50 1 2 J0433 1 7 1 4064000001 7 1 4904 J0433 1 40968 1 000 JOZOO 1 J 1 732 J 1 792 00 

471 1888013003909879001004800000000001 1 097090000 1 1 71 440000000ZOO 1 J 1 792 J 1 852 00 

2610433 10423161 04230000049 1 09640 0000390985500 1 0026 104711 0433 ZOO 1 J 1 852 J 1912 OO 

480000000000491 185200000 1609679000021 7 1501 2J0423 171 40640O00OZO0U1912J1 972 OO 

171 4904 J0423 1 4 0968 1 000 J047 1 20800 1300161 042300000390992500 1 OOZOO 1 J 1972 J2032 00 

4800000000001 10970900001 1 7 1 4400000 J049 1 096400000261 0433 1 0423ZOO 1 J2032J2092 OO 

161 042300000390990 1001 0048000000000049 1 096400000 1 60967600003 ZOO I J2092 J2 1 52 00 

39 1 033900 1 00480000000000340000000 1 0249 1 224300000 1 6096760OO06ZO0 1 J2 1 52 J22 1 2 00 

39 1 02 7700 1 0049 1 2 1 6400000 1 6096760000047 1 272800200461 81 72003OOZ00 1 J22 12J2272 00 

461 2584004003909965 001 00390994 700 1 0024096830968546125480 1 1 OOZOO U2272J2332 00 

24096830968746 1 25480 1 1 0024096830968946 1 25480 1 1 0024096830969 1 ZOO 1 J2332 J2392 00 

461 254801 1 0024 0968309693461254801 1 0O24096830969546 1 25480 1 1 OOZOO 1 J2392J2452 OO 

24096830969746 1 25480 1 1 0024096830969946 125480 1 1 003609682001 OOZOO 1 J2452 J2512 OO 

32 096820000026 0540509683491 096400000360968200 1 00320968200000Z001 J25 12 J2572 00 

491 0964000003909,777001003909947001 001 6 12626 J966824OO0O0O0403Z00U2572J2632 00 

4612668012001 1 1 262600002491 262000000360040200 t 00320040200000ZOO U2632J2692 OO 

26127101 262626 000000040349 1 0964000OO47 1 5 1 9600300 1 609679000 JOZOO 1 J2692 J2752 OO 

171471208571 1 4096790000047 1 28240 1 1 00 1 7 1 406400O00 1 40968 1 000 JOZOO 1 J2752J2812 OO 

4 7 1729601 300 1609679000 JO 17 147 1208561 140967900000471 29080 11 OOZOO 1J2812J2872 OO 

171 4064 000001 4 C9681 C 00 J04 7 156 160 13 0026 12931 1 151 026096 740OOOOZ0O1 J2872J2932 OO 

1 2096740000943 1 3004 09674 1 6096790 OON 01 7 14064000001 409681 OOO JOZOO I J2932 J2992 OO 

471 72960130014 09676000064713892013002613051 1 1 5 1 026096740OOOOZ00 1 J2992 J3052 OO 

431 3376096743909983001003400000001 021 10970900001 171440OOOOOOZ001 J3052J31 12 OO 

1 4 1 047 1 0000046 1 32080 1 200 1 6 1 047 1 00000390987900 1 0048000 OOOOOOOZOO 1 J31 12 J31 72 OO 

1 1 0970900001 1 7 1440000000491334 0000001 4 104330000046 132680 1200Z00U3172J3232 OO 

161 0433000003909925 001 0049131600000014 10423000O046 133280 120OZ00U3232J3292 OO 

161 042300000390999900 1 0049 1325600000480000000000260970109683Z001J3292J3352 00 

3 1 096820968449 1 096400000 1 4 1 047 1 0000046 1 37360 1 200 1 60967900005ZOO 1 J3352 J34 1 2 OO 

1715012J0471 1714064000001 714904J0471 161047 1 00000431 355609680Z001 J34 12 J3472 OO 

3909831001001 1 0970900001 1 7144000000026 1047 1 1 0433261 04331 0423Z0O 1 J34 72 J3S32 00 

26 1 04230968349 1 332800000 1 609679000KO 171501 209683 1 7 1 40640OOO0Z00 1 J3532 J3592 00 

43137 1 2096803909805 00 1 00340000000 1 02390999900 1 0026 1 047 1 1 0433Z00 1 J3592 J3652 00 

26104331 0423 1 6 1 042300000 1 1 097090000 1171 44000000049 1 332800000Z00 1 J 3652 J37 1 2 OO 

39 1 002 1 00 1 0049 1 350800000 1 6096790 OOKN 1 7 1 47 1 208563 1 30 96790000 1 ZOO 1 J37 12 J3772 OO 

260004 0000991 6 0967900000 17150 12096832 1 00040096791 3O0O40OOO05Z0OIJ3772J3832 OO 

320009700000260967900098 1 7 1 406400000431 36 1 60968049 1 37 1 200000 ZOO 1 J3832J3S92 00 

1 4096760000347 139400 13001 609679000 JN4913748O0O001609679000O0Z001J3892J39S2 00 

491 374800000Z 00 1 J3952 J 3964 OO 

26140821 151 01 300 00000050 1 409679000N046 1 426801 1 002 1 0009909679Z00 1 J4064 J4 1 24 OO 

1 100099004032614 159000992509680000003209680000001 1 11 5 1 OOOOO 1 Z001 J4 124 J418-4 OO 

1 61 4207J 15 10250968 100000330968 1000001 1 1 151000001 14 1 1 51 0O7437ZOO1 J41 84 J4244 OO 

461437601 1004200000000002200099096791 1 000990050326 1 43 1 500099ZOO 1 J4244J4304 OO 

43 1 43520 0000 1 20009900 J0C2 1 00099096794914 1 3600000 150968000000ZOO 1 J4304 J4364 00 

4914 16000000161 1 5 1 0054394200000000001 4097090000346 1 44360 1 300Z00 1 J4364J4424 00 

420000000000160970900000 161 04230000016 1043300000161 0471 OOOOOZOO U4424 J4484 00 

260970 1 096833 1 0968209684340000000 1 0239 1 025500 1 00340000000 1 02Z00 1 J4484 J4544 00 

38 1 966700 1 00260970 1 09683340000000 1 023 1 05408096823 1 09682 1 9667ZOO 1 J4544 J4604 OO 

31 1966705408260540700403260040305405260540505407480000000000Z001 J4604J4664 00 

47 10964 0030047 10964 004001 610953000M1 49 10820OOOO026 147591 471 1Z001J4664J4724 00 

13 096830001 61 2 00 099000 J61 1000990000049 1 50600000026 1 481 91 4771 ZOO 1 J4724J4784 00 

1300403 0001 4 1 200 099000 J4 1 1000990000049 1506000000 1 300403000 14Z00 1 J4784J4844 00 

1200099000J41 1 0009909371 26 1 4886000992200000 1 483 1 420000000000ZOO 1 J4844J4904 00 

1 61 49820743926 1 4946 1 4903340000000 1 021 300000000201 200099000K0Z00 1 J4904 J4964 00 

21 149820 00993900 000001 003400000001 0142000000000026150301501 1 ZOO U4964J5024 00 

13000000 001 61 200 099000 J61 1 000990857326 1 5083000992 1 0967900000ZOO 1 J5024J5084 00 

420000000000Z 001 J5034J5096 00 

16096790000017 1471208561 1 71 40640000043 1 57000968047 1 554400400ZOO 1 J51 96 J5256 00 

43 1 55440968 1 1 60967900002 1 7 1 40640000039 1 006700 1 0043 I 5400096SOZOO 1 J5256 J53 16 00 

- 151 01 01000013910085001 002610471 1 043326 1 0433 1 0423 1 61 04230OOOOZO0 1 J53 16 J5376 OO 

480000 00000C49 10964 000001 1 097090000 1171 440000000 141 0471 OOOOOZOO 1 J5376J5436 00 



o 



461 54720 1200 16 1047 10000049 15376000001 4 1043300000461 55200 1200Z0OU5436J54 96 00 
161 043300000491537600000 1 6 1 04230000049 1 537600000 1 60967900000Z00 1J54 96 J5556 00 
171 4 772093671 7 14 0640000043156160968 0391 003500 1 0049 I 534000000ZOO U5556 J56 1 6 00 
391 005700100171483200001 1 4 1 04230000046 1 35320 1 200 1 4 1 043300000Z00 1J56 16 J5676 00 
46 1352001 2 00491 3508000002609679096761 4 1047 100000461 57600 1200Z001J56 76 J5736 00 
1 7 1 4 7720936349 1 582000000 1 4 1 04330000047 157360 1 200 1 4 1 042300000Z00 1 J5736 J5796 00 
471 57360 12001 7 1477209361 260005009679160967900000171477209371 ZOO 1 J5796J5856 00 
260968 1096792609679r>00'-.0! 4 0968 10000046 159 160 1300220967909681 ZOO U5856 J591 6 00 
171471 208563 1 4096790000047 1 72360 1 1 001 7 1 40640000043 1 723609680ZOO 1 J59 16 J5976 00 
1 609679000001 7 147120356526160231 1 5 1 024096790000047 1 64200 1 300Z00 1J5976J6036 00 
1 71 48320000339 1 1 05 00 1 00 1 60967900002 1 7 I 40640OO0043 1 6 1 6809680Z00 1 J6036J6096 00 
1510 10 100009391 0085001 001 6104230000016 104330000026 1047109683Z00U6096J6 156 00 
491 33280000016 10471 0000026 1043309683471 638400400 141 042300000ZOOU6156J621 6 00 
46 13 3280 12001 609679000KS 1 7 1 50 1 2J0423 1 71 4904 J0423 1 6 1 042300000ZOO 1 J62 16J6276 00 
46163120140017 1 40640000043 1 633609680390980500 1 00491 332800000Z00 1 J6276 J6336 00 
390983 1 001 001 1 0970900001 1 714400000004913328000002610471 1 0423Z00 U6336 J6396 00 
16104230000049133280000016096790000017147120856726164671 15 1 OZOO U6396 J6456 00 
24096790000047 1 66 120 1 30039 1011 900 1 001 7 1 483200004 1 60967900002Z00 1 J6456 J65 16 00 
1 71406400000431 6120096801 510101000083910085001 0016 1047 100000Z00U6516J6576 00 
1 6 1 042300000 1 6 1 04 330000049 1 3328000001 60967900000 1 7 1 477209369ZOO 1 J6576J6636 00 
17 14 7 1 20856926 1 667 11151 0240967900OOO47 1 67200 1 30039 1 1 3300 1 OOZOO 1 J6636 J6696 00 
1 7 1 48320000549 1 65640000039 1 002 1 00 1 00 1 7 1 483200002 1 60967900002ZOO 1 J6696J6756 00 
1 71 40640000043 168 1609680 1510 10 100007391008500 100491 61 6800000Z00U6756J6816 00 
47 1350300400 14 1042300000461 70560 12001609679000L8 171 50 12J0423Z00U68 16 J6876 00 
46 1 69 1 20 1 400 1 7 1 40640000043 16984096801 7 1 4904 J0423390985500 1 OOZOO 1 J6876 J6936 00 
261 0471 1 042326 1042309683 161 043300000491 3328000001 714904J0423ZOOU6936J6996 00 
3909879001 001 1 0970900001 1 71 4400O000 1 1 6 1 047 1 0000049 1 694800000Z00 1J6996J7056 00 
141 04330000046 1703201 200 1609679000M31 7 ISO 12J0433461 71 400 1400Z001 J7056J71 16 00 
1 71 4064000004 J 1 7 1 7609680 1 71 4904 J0433390960500 1 00491 703200000ZOO 1 J7 1 16 J7 1 76 00 
1 714904J04333909631 001 001 10970900001 1 71440000000491 703200000ZOO U7 1 76 J7236 00 
1 60967900000 1 7 1 477209365 1 71 47 1 20837 1 1 7 1 40640000043 1 734409680ZOO 1 J7236 J7296 00 
391 01 51 001 On 1 l 0970900001 1 7 14400000004913328000001409681 OOOPOZOO 1J7296J7356 00 
471 772801 30C330 968000000251 CI 8909680391 0171001 001 1 097090000 1 ZOO 1J7356J74 16 00 
1 71 44 000000025 1406309681 1 5 1 4062000001 4 1 04 7 1 00000461 33280 1 200Z00 1 J74 16J7476 00 
47176560040014 1 40630000446 1 76560 1 300 1 609679000 JO 1 7150 1 2 J0471 ZOO U7476J7536 00 
46 1 75640 1 400 1 7 1 4064000O0 1 7 1 4904 J047 1431 762009680390980500 1 OOZOO 1 J7536 J7596 00 
1 6 1 047 1 0000049 1 332800000390983 1 00 1 001 6 1 047 1 0000049 1 73080OOO0Z00 1 J7596 J7656 00 
1 4 1 40630000746 1 77040 1 300 1 609679000L049 1 752400000 1 609679000M0Z00 1 J7656 J77 1 6 00 
491 7S240000C25 1 40630966033096800000025 10101 0968025 1 02 1 7096B0Z00 U77 1 6 J7776 00 
2509679 096C 01 5 O9fci7B0O0OCl 7 1 4C640OC0043 1 784SO968039 1 0085OO 1 OOZOO 1 J7776J7836 OO 
49135080000039101 9300100251406309681 1 5 1406200000 1 1 097090000 1 ZOO U7836J7896 00 
1 7144 000000 1 1 4 1 406300004461 80520 1 1 00 1 4 1 04230000046 1 80520 1 200ZOO 1 J7896 J7956 00 
1714904J04233909925001001 10970900001 1714400000002610471 1 0433Z00 1J7956 J80 16 00 
161 0433000001 6 1042300O00491 33280000014 104230000047 181 240 1200Z00U8016J8076 00 
141 04330000047 181240 120014 1 0471 0000046 18 1 360 120039 10221 00 1 OOZOO U8076J8 1 36 00 
26097010966331 096820966449 1 534000000 1 6 1 C953000K649 1 065200000ZOO U8 1 36 J8 1 96 00 
L600000005C049000002 1205723 0000 133057230000049057 1200000300096001 15 00 
3600 1 00005003600 1 720050036002440050036003 1 600500360000000500 00 
1020304000204060800030609021 004080216 100500 1510200602 18 14200Z 00 
7041 1282 008061 4 223009081 726300O000000O50607080900 1214 161815 181 1242720242Z 00 
32236352 035304±4 03c324o44553249465360484654627fa44536271 80 1 23456789 123456Z 00 
7390234567890 j34567e^OJK4567890JKL567e90JKLM67890JKLMN7890JKLMN0890JKLMNZ 00 
^^000 000000049 J04 1 2OP90 JKLMNOPQZ L 1 00388000 1 9M90000000000M90003600000 00 
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APPENDIX D 



FORTRAN SOURCE PROGRAM TO COMPUTE BATTING DATA 



DO 250 I = 1.25 

READ 1 .AB.HITS.DBLE.TRPL.HR.SB.CS.AVE.BB.SO.PCT 

AP = AB + BB 

BB = 100. * BB/AP 

KBB = BB 

BA = 100. * AVE 

KBA = BA 

K2B = 100. * DBLE/H I TS 
K3B = 100. * TRPL/H I TS 
KHR = 100. * HR/HITS 
OUTS = AB - HITS 
K = 100. * SO/OUTS 

IF (SB - 9. ) 100. 1 10. 1 10 

100 KSBA = 30. + 2. * SB 

GO TO 200 
110 IF (SB - 17.) 120.130.130 
120 KSBA = 25. + (100. * SB)/(2.1 * (SB + CS ) ) 

GO TO 200 
130 IF (SB - 25.) 140.150.150 
140 ASB = SB + CS 

KSBA = 30. + (100. * SB)/(2.05 * ASB) 

GO TO 200 
150 ASB = SB + CS 

KSBA = 35. + (100. * SB)/ (2. * ASB ) 
200 KF = 100. * PCT 

KF = 100 - KF 

K3B = K2B + K3B 

KHR = K3B + KHR 

TYPE 2.KF.KBB.KBA.K2B 

TYPE 3.K3B.KHR.K.KSBA 
250 CONTINUE 

STOP 

1 FORMAT (9X,F3.0,F3.0.F2.0.F2.0.F2.0.F3.0»F2.0»F3.3,F3.0«F3.0i 

2 FORMAT ( 1HF.3X. I3.3X.2HBB.3X. I3.3X.2HBA.3X. I3.3X.2H2B.3X. 13) 

3 FORMAT (2H3B.3X. I3.3X.2HHR.3X. I3.3X. 1HK.3X. I3.3X.3HSBA.3X. 13, 

END 
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APPENDIX E 

FORTRAN OBJECT PROGRAM TO COMPUTE BATTING DATA 



© 



FORTRAN OBJECT PROGRAM TO COMPUTE BATTING DATA 



4100000000003600032005004900084 - 1 

1 234567891 23456789-23456789- J3456789- JK456789- JKLZ 3 1 00300000324900000 0002 

56789- JKLM6789- JKLMN789- JKLMN089- JKI-MN0P9- JKLMNOPQ0Z3 1 00350000324900000 0003 

3600000005004900000 0004 

4100000000003600072005003600144005003600216005004 10000000000310000000072 0005 

36002140050014002930-0094600080012 003400 000001 0239001 7300100480000000000 0006 

490000001 1 000230 00-12600 13400279260012700284250001 1 0000031 00000002142600 0007 

1 58002842500000000 1 1 49000000434 1 5944005664630056460062455864455543450Z 0008 

250446900401 25039060040 1 25038950040 1250635600401 360302 1 00500Z0050000560 0009 

3203097000002403 1 000002346006440 1 200340000000 1 02390290900 1 OOZ0056000620 00 1 

4800000000004900548000001 10002300001 1 40302200000470 1 4800 1 200Z0062000680 001 1 

140302400000470 173201 200 140302700R994701 4440 1200360040200500Z0068000740 0012 

49O0832O00OOZOO00O0000OO - 74000752 0013 

1 1 0002300001 1 60083803 1 00 1 600850009041 60089800820260 1 071 00468Z0074800808 00 14 

260089 100471 360302 1005002400481 0002346007480 12003400000O0102Z0080800868 0015 

3902909001 004800000000004900728000001 1 0002300001250308 1 0040 1 Z0086800928 0016 

3 1 030 1 003071 44 00988030 1 826009690 1 0732600007030 1 7490 1 06800000Z0092800988 0017 

440102003019330301900000490106800000ZOOOOOOOOOO - 98801024 0018 

440 1 256030 1 626030 1 5030 1 4260 1 06 1 1 073 1 60000 1 0O0M926 J9999030 1 9Z0 1 02 00 1 080 00 1 9 

120089000001 1201 07300001 12009210000 1 1 2009380000 1 140093903021 ZO 108001 140 0020 

46009 160 1300260 14430089 1220 1443004 16460 12880 12001 40 144300000Z01 14001200 0021 

470 12240 1 300 160 1 443000002 1 009220 14432 1 009390 1 443490082000000Z01 2000 1 260 0022 

44010800301526010740301949010800000020000000000 -125601292 0023 

260 13180041 1 1 10 1318000013200000000001 1 1 3 1 70000 1 240 1 3 1 700470Z0 128801 348 0024 

470 13 120 1300440 142000450 16000230400 1340000000 1023902951 001 00Z01 3480 1408 0025 

4800000000002600 1470290349000000000031 083000302821 0145003027Z01 4080 1468 0026 

490054800000430 161 20302 1260 172 I 03024260 172403027260 1 7290 1558Z014680 1528 0027 

2501730004013103128017203103294030281 1 1 546000 J0210 1 55803027Z0 15280 1588 0028 

1 1 1558000014900548000004302260030222601 72303026260 1 7280 1 678 ZO 1 5880 1648 0029 

2501729004013103917017203104468030281 101666000J1 1 1 1 678000MOZO 1 6480 1 708 0030 

490054800000Z00000000300 -170801720 0031 

1601755031292403024000004601792012001 1 1 755000 J0490 1 74400000Z01 73201792 0032 

260 1 8270 1 755 1101 82700009250 1911 00000260 1 8460 1 827250000000 4 1 ZO 1 7920 1852 0033 

1 10175500001260 18870 175531 01 72000000260 19060 1827150000000000Z0185201912 0034 

2601966017551201966000022601971019661 1 1 97 1 000 J03 1 OOOOOOOOOOZO 1 9120 1 972 0035 

1201 546000 J04502008031 28 1601558032942602 03 10 17273 10642600000Z01 97202032 0036 

140 172200060460280001200 140 17220004846027040 1200 16021 7506426Z0203202092 0037 

44021 28030261 206432000051 2064440000521 064320 145021064440 1450Z02092021 52 0038 

2602 1 700 1 4503 1 00000064262 1 1 4500 1 722490 1 44400000 1 602 1 7506390Z02 1 52022 12 0039 

31 06390064261 1 06432000L6 1 1 06444000L64902 0920000026022950 1666Z022 1 202272 0040 

1202295000J131 01 7200391 745023200 1 72049005480000024030260 1 723 Z0227202332 0041 

46023560 1 200490227200000260239 1 O 1 72826023860 1 4503 1 O00OOO0000Z0233202392 0042 

1 101450000L626024940229526024990229S1 102499000J I 24024990 1 666 Z02 392 02452 0043 

47024880 12001 20 1666000 J 1 4902572000003 1 0000000000260253002494Z02452025 12 0044 

1 102530000081200000000M01 102494000J1 1 1 02499000 Jl 490244000000Z025 1 202572 0045 

260266201 72826026670 1 728 1 1 02667000M024026670 167847026560 1 200Z0257202632 0046 

1 20 1678000M04902272000003 1 0000000000 1 1 02662000M0 1 1 02667000MOZ0263202692 0047 

490260800000440274003026 1 20645600005 1 2064680000=2 1 064560 1450Z0269202752 0048 

2106468014501 106456000K4 1 1 064680 00K44902 1 52000004402836030H6Z02752028 1 2 0049 

12064680000512064800000521 06468014502106480014501 1 06468000L6Z0281 202872 0050 

1 10648O000L6490215200O0OK6O015800O00Z0000000000 -287202908 0051 

M3M1594400566463005646O062455864455543450Z0OOO0O0000O00 -290802950 0052 

M5556345590062644259566463495545622300576462480062634 159630Z00295003010 0053 

49OO5OOZOOOO0OO0000 - 140001470 0054 

~7/T- - - -1216J986900001Z - 55 

|Q N0025001 1J9869000C1 1 4 J98690002547083 1 201 1Z 0056 

- - -60K704512J9S56J704992J9839J704992J9829J704992J9819J704992J9809000Z 0057 

- - -60J704992J9799J704992J9789J704992J9779J704992J9769J704992J9759000Z 0058 
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- -24J704992J9749J704940J9739000Z 0059 

- -24J701238J9839J700518J9759000Z 0060 

- -12J701306 J97290002 - 61 

- -36J701238J9709J70137SJ9759J701862J9729000Z 0062 

- -12J701306J9759000Z - 63 

- -24J701238J9759J70349400060000Z 0064 

- -12J701306J9699002Z 65 

- -24J701238J9709J701378J9769000Z 0066 

- -12J70I306J9689000Z 67 

- -24J701238J9O89J793494000b0000Z 0068 

- -12J701306J9679002Z 69 

- -48J701238J9709J701378J9819J70 I 862 J9829 J70349400060000Z 0070 

- -12J701306J9669002Z 71 

- -48 J70 1 238 JQ709J70 1 378J9309J70 1 8t>2 J9329 J70349400060000Z 0072 

- -12J701306J9659002Z - 73 

- -48J701238J°709J7P13V<HJ9799J7c t 862 J9S29 J70349400060000Z 0074 

- -12J701306J9649002Z 75 

- -24J701238J9G39J700403J9629000Z 0076 

- -12J701306J9639000Z 77 

- -48J701238J9709J701 378 JJ749J70 1 862 J9639 J70349400060000Z 0078 

- -12J701306J9629002Z - 79 

- -24J701238J9789J700408J9619000Z 0080 
_ -4443089720005149J9590C000044J95900005849J9600Z 0081 

- -48 J70 1 238J9569 J70 1 378J9789J7005 1 8 J9579 J70349400060000Z 0082 

- -12J701306J9589002Z 83 

- - 849J9550Z - 84 

- -24J701238J9789J700408J9549000Z 0085 
_ -444309 108000b i 49 J95200000044 J9520000S849 J9530Z 0086 

- -60J701238J9709J701 378J9789J701 306J95O9J70 1 236 J9789 J7005 1 8J9779000Z 0087 

- -48J701378J9499J701756J9b09J700518j9519J70349400060000Z 0088 

- ^12J701306J9589002Z 89 

- - 849J9550Z - 90 

- -24J701238J9789J700408J9519000Z 0091 

- -444309304000K149J9460C000044J9460000E>t'.49J9470Z 0092 

- -24J70123SJ9789J70C518J97790C0Z 0093 

- -12J701306J9459000Z 94 

- -60J701238J9709J701378J9789J701 306 J9509J701 238J9449J70 1 378J9459000Z 0095 

- -36J70 2 756J9b09J700olHJ9579j70349400C6C000Z 0096 

- - 12J701306J9589002Z - 97 

- - 649J9550Z - 98 

- -24J701238J9789J700518J9779000Z 0099 

- -12J70I306J945900OZ 0100 

- -60 J70 1 238 J9709 J70 1 378J^739j70 1 306.J9509 J70 1 238 J9569 J70 1 378 J9459000Z 101 

- -36J701756J9b09J700'518J«42Oj7034 J40n060000Z 0102 

- -12J701306J9bb9002Z 0103 

- -36J701238J9709J70137UJ9739J70249400060000Z 0104 

- -12J701306J94190C2Z 0105 

- -24J701238J9409J70270CJ941900KZ 0106 

- -12J701306J9419002Z 0107 

- -24 J701238J966'.'J70264£ J9ftfi9002Z 0108 

- -12J70130AJ c >fcr,Or>C22 0109 

- -24 J7O1238J°6h-9.J7n2644.JVfta^002Z 0110 

- -12J701306J96490C27 0111 

- -60K704796J939feJ704992J9419j704992J9o>9j704992j9679J704940J9669002Z 0112 

- -60K704796J937oJ70499£j96b9j704992J<3649J704992J' : '629J704940J c '589002Z 0113 
5025COOZ 0114 

- -24340OO0000 1 02L9O390 1 00 1 O000OZ 0115 

- -12W800000001 20C0Z 0116 

- - 1 2M90995600 1 0200' Z 117 

- -6249J984004044C42640900000000000000- - OC300O0300O0200O0200O0200Z 0118 

- -360C3C00020COC30L00300G0300C03CL040762 0119 
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_ _ -6149J938004044042640 1M60426403000000R030004264030000000426402M2Z 0120 

_ _ -62M20426403000000R030004264030000000426402M2M10426403000000R0300Z 0121 

_ _ -4704264030000000426402P2M20426403000000R030004076Z 0122 

- - -6149J9360040440426402P3M20426403000000R030004264030000000426402Z 0123 
_ - -62M8N90426403000000R030004264030000000426401N20426403000000R0300Z 0124 

- - -550426403000000042640302M2M10426403000000R03000413604076Z 0125 

- - 9990Z 0126 
J0426J9359J93590000000000 JOOOOOOOOOOOOOOOO J9999Z 0127 
M 1 634 15546M 16341 5500M356624600M35662000002495546000249550000Z 0128 
02585 963460258596300N356474600N3564 70000M567574600M567570000Z 0129 
M84 96362 00M1 42000000 J0078KOOO 1 09986K000 1 M90000000009896002S0Z 0130 
M165450000M3620000000242000000M8590000000359575300M442534500Z 0131 
J0000000030000000000M157000000N7436300000256000000M242000000Z 0132 
N248590000N273420000N272420000N242410000M241000000N242420000Z 0133 
N2624241 000906 0001 1 00899200 1 OOROOOOOOOO 1 N200000000N664636200Z 0134 
"•925600 1 3009128001 20J7000 000020962 000200K0000 00 00 1 LOO 0000002 Z 0135 
-947600 1 500932400 1400000000004K1 00000001 000000000 1K500000002Z 0136 

-100N246000000L5000000020000000003K050000001M162420000Z 0137 

J0426K0003J0254K0003J0248K0002J0084K0002Z 0138 
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APPENDIX F 

FORTRAN SOURCE PROGRAM TO COMPUTE PITCHING DATA 
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FORTRAN SOURCE PROGRAM TO COMPUTE PITCHING DATA 



DIMENSION T(32>. H{32) 
DO 100 I = 1<8 

100 READ l,T(I).H(I),T(l+8).H(I+e>.T(I+16).H(I+16>.T( 1+24) ,H( 1+24 

1 FORMAT (F8.0.F8.0.F8.0.F8.0.F8.0.F8.0.F8.0.F8.0) 
SUM =0.0 

Q = 0.0 

DO 110 1=1. 32 

SUM = SUM + T ( I ) 
110 Q = Q + H ( I ) 
TAV = Q/SUM 

KAV = 100. * ( TAV + .005) 
DO 300 I = 1.15 

READ 2 < BB . AB . ERA . H I TS . SO . GS . CG . HR . I P 

2 FORMAT (F3.0.F4.0.F4.2,F3.0.F3.0«F2.0«F2.0,F2.0. 13) 
KW = -6 

TEST = BB/ < AB + BB ) 
X = .054 

50 IF (TEST - X) 120.120.130 
130 KW = KW + 1 

X = X + .005 

GO TO 50 
120 Y = HITS/AB + .005 

KY » 100. * Y 

KSUM = 2 * (KY - KAV ) 

MOB = -8 

X = 2.45 

60 IF (ERA - X) 140.140.150 
150 X = X + . 15 

MOB = MOB + 1 

GO TO 60 
140 KPC = KSUM - MOB 
K = -9 

TEST « SO/AB 
Z = .080 

70 IF (TEST - Z) 200.200.210 
210 K = K + 1 

Z = Z + .006 
GO TO 70 

200 IF (GS) 201.212,201 
212 KSPC = 

GO TO 80 

201 IF (GS - 20.) 205.206.206 

205 KSPC = 4.7 * CG/GS * 10. 
GO TO 80 

206 KSPC = 10. + 0.95 * CG/GS * 10. 
80 XIP = IP 

TEST = HR/XlP 
KPHR = -7 
X = .030 

90 IF (TEST - X) 113.113.114 
1 14 KPHR = KPHR + 1 

X = X + .012 

GO TO 90 
1 13 KWP = KW + 10 

TYPE 3 ♦ KW . KPC ♦ MOB . K 

3 FORMAT ( 1HW.4X. I 3 , 4X « 2HPC , 4X . 1 3 » 4X • 3HM0B « 4x • 1 3 , 4X » 2HS0 »4X . 13) 
—*300 TYPE 4. KW P. KPHR, KSPC 

4 FORMAT (2HWP.4X, I 3 . 4X .3HPHR . 4X« I 3 , 4X • 3HSPC ,4X . 13./) 
STOP 
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END 
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APPENDIX G 

FORTRAN OBJECT PROGRAM TO COMPUTE PITCHING DATA 

4100000000003600032005004900084 - 1 

1234567891 23456789-23456789- J3456789-JK456789- JKLZ 3 1 003000O0324900000 000 2 

56789- JKLM6789-JKLMN789-JKLMNO89-JKLMNOP9-JKLMNOPQ0Z3 100350000324900000 0003 

3600000005004900000 0004 

41 00000000003600072005003600 1440050036002 16005004 1000 00000003 100 00000072 0005 

36002 1 400500 14002930-00946000800 1 200340000000 1 023900 1 7300 1 00480000000000 0006 

490000001 1 00023000-12600 13400279260012700284250001 1000003100000002142600 0007 

1 58002842500000000 1 1 49000000434 1 5944005664630056460062455B64455543450Z 0008 

25044690040 1 25039060040 1 25038950040 1 25063560040 1 360302 1 00500Z0050000560 0009 

3203097000002403 1000002346006440 12 003400000001 02390290900 100Z0056000620 0010 

4800000000004900548000001 10002300001 140302200000470 14800 1200Z0062000680 00 1 1 

1 40302400000470 1 7320 1 200 1 40302700R99470 1 4440 1 200360040200500Z0068000740 00 1 2 

49O08320O0OOZ0OO0O0000O0 - 74000752 0013 

1 10002300001 1600838031001600850009041600398008202601071 00468Z0074800808 00 14 

260089 1 0047 1 360302 1 00500240048 1 0002346007480 1 200340000000 1 02Z0080800868 0015 

390290900 1 00480000000000490072800000 1 1 000230000 1 250308 1 0040 1 Z0086800928 00 1 6 

31 030 1 0030714400988030 1826009690 1 07326000070301 7490 1 06800000Z0092800988 00 1 7 

440102003019330301900000490106800000ZOOOOOOOOOO - 98801024 0018 

440 1 256030 162603016030 142601 06 10 10731 60000 1000M926J999903019ZO 10200 1080 00 19 

120089000001 120107300001 120092100001 120093800001 14009390302 1 ZO 1 0800 1 140 0020 

46009 160 1300260 144300891 220 1443004 16460 12880 12001 40 144300000Z01 14001200 0021 

470 1 2240 1 300 1601 44300OO02 1 009220 1 4432 1 009390 1 443490082000000ZO 1 2 0001 260 0022 

440108003015260107403019490108000000ZOOOOOOOOOO -125601292 0023 

26013180041 1 1 101318000013200000000001 1013170000i240I3170047oZ01288ol348 0024 

470 131201 300440 1 42000450 1 6000230400 1340000000 1 023902951 00 1 OOZO 1 3480 1 408 0025 

4800000000002600 1 47029034900000000003 1 08300030282 1 1 45003027Z01 4080 1 468 0026 

490054800000430 161 20302 1 260 1 72 1 03024260 1 72403027260 1 7290 1 558Z0 1 4660 1 528 0027 

2501730004013103128017203103294030281 101 546000 J02 101 55803027Z0 1 5280 1 588 0028 

110 1 5580OO0 1490054300000430226003022260 1 72303026260 1 7280 1678Z0 1 3SSo 1648 0029 

2501729004013103917017203104463030281 101666OO0J1 1 1 O 1 678000MOZO 1 6460 1 70S 0030 

4900548000O0Z0O0OOOOO0O0 -170801720 0031 

1 60 1 75503 1 29240302400000460 1 7920 12001101 755000 J0490 1 74400000ZO 1 7320 1 792 0032 

2601827017551 10182700009250191 1 00000260 1 8460 132725000000040 1 ZO 1 7920 1 852 0033 

1 1 0175500001 2601 88701 7553 I 01 720000002601 90601 827 150000000000Z0 185201912 0034 

2601966017551201966000022601971019661 1 1 97 1 000 J03 1 OOOOOOOOOOZO 1 9 1 20 1 972 0035 

1 20 1 546000 J0450200803 128 160 1558032942602031 01 7273 1 0642600000 ZO 197202032 0036 

140 17220006046028000 1200 1401 7220004846027040 1200 16021 7506426 Z0203202092 0037 

4402 1 2803026 1 206432000051 206444000052 1 064320 14502 1 064440 1 450Z0209202 1 52 0038 

2602 1 700 1 4503 1 00000064262 10145001 7224901444 00000 1 602 1 7506390Z02 1 5202212 0039 

31 06390064261 1 06432000L6 1 1 064440001-649020920000026022950 1666Z022 1 202272 0040 

1 202295000 Jl 3101 720039 1 745023200 1 72049005480000C24030260 1 723Z0227202332 004 1 

46023560 12004902272000002602391 01 72826023860 145031 000 O00O00OZO233202392 0042 

1 101450000L 62602494022952602499022951 1 02499000 J 1 24024990 1 666Z0239202452 0043 

47024880 1 200 1 20 1 666000 Jl 4902572000003 1 0000000000260253002494Z02452025 1 2 0044 

1 1 025300000812O0O0000OM01 102494000J11 1 02499000 J 1 490244000000Z025 1 202572 0045 

2602662 1728,?6 02667c 1 7^'8 1 1 02667000M 0.24026670 1 6734 7026560 I 200Z0257202632 0046 

120 1 678000M04902272000003 1 0000000000 1 1 02662000MO 1 1 02667000MOZ0263202692 0047 

49026080000044 0274 003026 1 20645600005 1 206468000052 1 064560 1 45 0Z02 69202752 004 8 

2 1 064 680 1 450 1 1 06456000K4 1 1 06468000K44902 1 5200000440283603026Z02752028 1 2 0049 

1 206468000051 206480000052 1 064680 1 4502 1 064800 1 450 1 1 06468000L6Z028 1 202872 0050 

1 106480000L6490215200000K60015800000ZOOOOOOOOOO -287202908 0051 



M3M15944005664630056460062455864455543450ZOOOOOOOOOOOOO -290802950 0052 

M5556345590062644259566463495545622300576462480062634159630Z00295003010 0053 
4900500ZOOOOOOOOOOO - 140001470 0054 

- - -1216J922900001Z - 55 
NOO 100011 J92290000 1 1 4 J92290000847083 1 20 1 1 Z 0056 
- 1 02024 1 600035 J98892200034 J9229Z 0057 

- - -12K704512J9216000Z - 58 
-1 03024 1600035 J95692200034 J9229Z 0059 

- -2012J704992J9229000Z - 60 
- 1040241 600035 J98092200034 J9229Z 0061 

3012J704992J9229000Z - 62 

- 1 05024 1 600035 J94892200034 J9229Z 0063 

- -4012J704992J9229000Z - 64 
-1 06024 1 600035 J97292200034 J9229Z 0065 

- -5012J704992J9229000Z - 66 
-1 07024 1600035 J94092200034 J9229Z 0067 

- -6012J704992J9229000Z - 68 
- 1 08024 1 600035 J964 92200034 J9229Z 0O69 

- -7012J704992J9229000Z - 70 
-1 09024 1 600035 J93292200034 J9229Z 0071 

- -8012J704992J9229000Z - 72 

9012J704940J9229000Z * 73 

N5010000Z - 74 

- - -5849J920004044008000080000800008000080000800008000080004076Z 0O73 

- 12J701238J9189000Z - 76 

- 12J701306J9199000Z - 77 

- - -12J701238J9189000Z - 78 

- - -12J701306J9179000Z - 79 

1 2 1 6 J92290000 1 Z - 80 

N001 1001 1J92290O00U4J922900O3247087660UZ OOS1 

-1020241 600035 J98892200034 J9229Z 0082 

- 12J701238J9199000Z - 83 

- -2012J700518J9229000Z - 84 

- - -12J701306J9199000Z - 85 
-1 02024 1 600035 J95692200034 J9229Z OO86* 

- - -12J701238J9179000Z - 87 

- -2012J700518J9229000Z - 88 

- - -12J701306J9179000Z - 89 
N5011020Z . 90 
24 J70 1238 J91 79J70 1 862 J91 99000Z 0091 

- 12J701306J9149000Z - 92 

- - -48J701238J9149J70O518J91 19J701378J9129J70349400060000Z 0093 

- - -12J701306J9139002Z - 94 

- - -1216J922900001Z • 95 
N0030001 1 J922900001 14 J9229000 1547090300 1 1Z 0096 

- - -60K704512J9086J704992J9069J704992J9059J704992J9049J704992J9039000Z 0097 

- - -60J704992J9029J704992J9019J704992J9009J704992J8999J704940J8989002Z 0098 

- - -6249J90700404400300004000040K0030000300002000020000200R030004076Z 0099 

- - -12J701238J896900KZ 0100 

- - -12K70254602545000Z 010l 
12J701306J8979002Z 010& 

- - -36J701238J9059J700518J9069J701756J9069000Z 0103 

- 12J701306J8959000Z 0104 

12J701238J8939000Z 01(}g 

- - -12J701306J8949000Z 0106 

- - -24J701238J8959J700408J8949000Z 0107 

- - -4443093680005149J89100000044J89000005849J8910Z 0108 

- - -24J701238J8979J702644J8899002Z 0109 

- - -12J701306J8979002Z 0110 

- - -24J701238J8949J700518J91 19000Z 0111 

- - -12J701306J8949000Z 0112 



- 849J3920Z 0113 
-36J701238J9039J701862J9059J700518J91 19000Z 01 14 
-12J701306J8889000Z 0115 
-36J701238J9129J701378J8889J70349400060000Z 0116 
-12J701306J8879002Z 0117 
-36J701238J8879J702700J9139J702748J8859002Z 0118 
-12J701306J8869002Z 0119 
-12J701238J883900KZ 0120 
-12K70254602545000Z 0121 
-12J701306J8849002Z 0122 
-12J701238J88290OOZ 0123 
-12J701306J8949000Z 0124 
-24J70123BJ9049J700406J8949000Z 0125 
-44430972000051 49 J88000000044 J87900005849J8800Z 0126 
-24 J701 238J8949J7005 1 8 J8789000Z 127 
-12J701306J8949000Z 0128 
-24J701238J8849J702644J8899002Z 0129 
-12J701306J8849002Z 0130 

- 849J8810Z 0131 
-24J701238J8869J702700J884900KZ 0132 
-12J701306J8779002Z 0133 
-12J701238J875900KZ 0134 
-12K70254602545000Z 0135 
-12J701306J8769002Z 0136 
-24J701238J9029J701862J9059000Z 0137 
-12J701306J8959000Z 0138 
-12J701238J8739000Z 0139 
-12J701306J8749000Z 0140 
-24 J70 1 238 J8959J700408 J8749000Z 0141 
-4443 J00000005 1 49 J87 1 00000044 J87000005849 J87 1 0Z 0142 
-24J701238J8769J702644J8899002Z 0143 
-12J701306J8769002Z 0144 
-24 J701 238J8749J7005 1 8J8699000Z 145 
-12J701306J8749000Z 0146 

- 849J8720Z 0147 
-12J701238J9C19000Z 0148 
-4443 JO 1360005 149 J86700000044 J86800005849J8680Z 0149 

12J701238J8659002Z 0150 

12J701306J8669002Z 0151 

849J8640Z 0152 

24 J70 1 238 J90 1 9 J700408 J8639000Z 0153 

4443JO2360O05 1 49 J86 1 00000044 J86 100005849 J8620Z 0154 

60 J70 1 238 J6609 J70 1 378 J9009J70 1 862 J90 1 9J701 378 J8599 J70349400060000Z 155 

12J701306J8669002Z 0156 

849J8640Z 0157 

60J70 1 238J8589 J70 1 37SJ9009J70 1 862 J901 9 J701 378 JS599 J7005 1 8J8599000Z O 1 58 

12J70349400060000Z 0159 

12J701306J8669002Z 0160 

24J701238JB989J70322200060002Z 161 

12J701306JB579000Z 0162 

24J701238J8999J701862J3579000Z 0163 

1 2J701306J6959000Z 0164 

12J701238J855900KZ 0165 

12K70254602545000Z 0166 

12J701306J3569002Z 0167 

12J701238J8549000Z 0168 

12J701306J89A9000Z 0169 

24 J70 1236 J 8959 J70040SJS949000Z 0170 

4443J06000005149j85^00000044J85100005849J8520Z 0171 

24J701238J8S69J70^644 J8099002Z 0172 

12J701306J6569002Z 0173 



- - -24J701238J8949J700518J8509000Z 0174 

- - -12J701306JB949000Z 0175 

- - - 849J8530Z 0176 

- - -24J701238J8979J702644J8489002Z 0177 

- - -12J701306J8499002Z 0178 

- - -60K704796J8476J704992J8979J704992J8779J704992J8849J704940J8769002Z 0179 

- - -6149J846004044042640106042640400000000R030004264040000000004264Z 0160 

- - -6102N7M3042640400000000R03000426404000000000426403N4N6M20426404Z 0181 

- - -6400000000R0300042640400000000042640202N6042640400000000R030004076Z 0182 

- - -48K704796J8456J704992J8499J704992J8569J704940J8669002Z 0183 
N5030000Z -184 

- - -6349JB44004044042640206N7042640400000000R030004264040000000004264Z 0185 

- - -6103N7M8N9042640400000000R0300042640400000000042640302N7M304264Z 0186 

- - -260400000000R030004 13604076Z 0187 

- - -24340000000 102L903901 00 100000Z 0188 

- - -12M80000000102000Z 0189 

- 12M9J124000102000Z 0190 

9990Z 0191 

J1264 J8439J90390000000000 JOOOOOOOOOOOOOOOO J9999Z 0192 

Ml 634 1 5546M 1 634 1 5500M356624600M35662000002495546000249550000Z 1 93 

02585963460258596300N356474600N356470000M567574600M567570000Z 0194 

M900000000083 1 200 1 0000032J9249M800000000 00032 J95690300000000Z 0195 

-8826001 10N80000000000000000RR026454000008706K000108654K0001Z 0196 

- 1NOOOOOOOOKJ000000003N24165000003416500000000000000Z 0197 

M5594 1 OOOOM 1 42000000M242000000092 1 2K000209 1 56K0002 J098200300Z 198 

M957000000M859000000M347000000M7620000000256000000M849636200Z 0199 

-932000050N40000000J070000000003456263000000000000N266000000Z 0200 j 

N262645400N268000000080000000006000 000 J09388001300946800120Z 0201 S 

-982000 1400967200060K450000001000000000QN456420000000000000KZ 0202 

0900000000000000000RN200000000N257430000J5000000000974000150Z 0203 

J01 880020 1000000000KJ002000210 JO 1 00002000995200070000000000JZ 0204 

J025600205K000000002J0420000800000000000N262574300J015600212Z 0205 j 

N2574859000749570000R500000000J000000002M700000001 J033600206Z 0206 i 

J20000000JJ0620001 14J0700001 1 3 J0552OOO90L.OO0OOOOOJ000OOOOOOPZ 0207 j 

J1216K0004J1072K0004J09e2K0003J0802K00030000000010N266570000Z 0208" j 




o 
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